怎么样在VB中来打开网页哦？

Question

就是我按一个按钮，就可以打开一个网页了！

Answer 1

可以用webbrowser打开一个网页,然后在那一页再打开你要的一页 webbrouser的visual设为false

Answer 2

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 LongPrivate Sub Command1_Click()
Dim a As Long
a = ShellExecute(0, "open", "www.sohu.com", vbNull, vbNull, 0)
End Sub

Answer 3

Private Sub Command1_Click()
Shell "C:\Program Files\Internet Explorer\iexplore www.sohu.com"
End Sub

Answer 4

还有一个就是
dim Iex as new intnetexplor
iex.navigate "http://www.sohu.com"

Answer 5

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 LongPrivate Sub Command1_Click()
ShellExecute 0&, vbNullString, "http://www.121.com", vbNullString, vbNullString, vbNormalFocus

Answer 6

Shell "explorer http://www.121cn.com", vbNormalFocus