怎么在VB6.0里用IE打开一个网页?

[另类唐伯虎]

我忘了怎么写代码?
请各位给我说一下吧!

[lisong770818]

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

ret = ShellExecute(Me.hwnd, "open", Label2.Caption, "", strPath, 1)

[windcandle]

同意楼上的，没问题。

[lihonggen0]

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


ShellExecute Me.hWnd, "open", "http://www.csdn.net", vbNullString, vbNullString, SW_SHOW

[lihonggen0]

第二种方法：

Shell "explorer http://www.csdn.net"

[superxmz]

Dim goweb As String
goweb = "explorer.exe " & "url" '在explorer.exe后面一定要加一两个空格
Shell goweb, vbMaximizedFocus

[dyx]

Shell "rundll32.exe url.dll,FileProtocolHandler http://www.tsfigure.com.cn"