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 Long 调用API ShellExecute(Me.hwnd, vbNullString, "http://www.csdn.net", vbNullString, vbNullString, 1)
抄了别人的,可不要对别人说是我说的。 :)1 引用Microsoft Internet Controls; 2 Private Sub Command1_Click() Dim ie As InternetExplorer Set ie = New InternetExplorer ie.Visible = True ie.Navigate "http://www.wenfu.net" End Sub
Dim return&
return& = ShellExecute(Me.hwnd, "Open", "http://www.www.www", "", App.Path, 1)
"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
调用API
ShellExecute(Me.hwnd, vbNullString, "http://www.csdn.net",
vbNullString, vbNullString, 1)
:)1 引用Microsoft Internet Controls;
2
Private Sub Command1_Click()
Dim ie As InternetExplorer
Set ie = New InternetExplorer
ie.Visible = True
ie.Navigate "http://www.wenfu.net"
End Sub