Public 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 LongPrivate Sub btn_Click() ShellExecute Me.hwnd, "open", "http://www.csdn.net", vbNullString, vbNullString, &H0 End Sub
Public 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 LongPrivate Sub btn_Click()
ShellExecute Me.hwnd, "open", "http://www.csdn.net", vbNullString, vbNullString, &H0
End Sub
具体可是怎么样,你去查一下资料哦。。
up也行。