怎么调出IE窗口,并赋值地址栏?
怎么调出IE窗口,并赋值地址栏?
[解决办法]
Private Declare Function ShellExecute Lib "shell32.dll " Alias "ShellExecuteA " (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
ShellExecute Me.hwnd, "OPEN ", "http://www.163.com ", vbNullString, vbNullString, 1
End Sub