Question

VB中怎么单击一个按钮就可以打开网页？

如题

Answer 1

用VB打开网页有多种方法：

1)使用API函数。

Option Explicit
    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://zhidao.baidu.com/", "", "", 1
End Sub

2）使用Shell函数。

Private Sub Command1_Click()
    Dim RetVal
    RetVal = Shell("C:\Program Files\Internet Explorer\iexplore.exe" & " " & "www.baidu.com", vbNormalFocus)
End Sub

3）使用WebBrowser控件直接建立浏览器。

在 Visual Basic 里还可以向工程中增加其它类型的 Internet 功能，包括：Visual Basic 应用程序的 Internet 扩展。可以使用一些特殊控件，它们提供了和Internet 有关的功能。这些控件包括 

Internet Transfer 控件、 WebBrowser 控件，以及 WinSock 控件。 

Private Sub Command1_Click()
    WebBrowser1.Navigate "http://www.baidu.com"
End Sub

Answer 2

Private Declare 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 Const SW_SHOWNORMAL = 1  
Dim Result  Result = ShellExecute(0, vbNullString, "http://baidu.com", vbNullString, vbNullString, SW_SHOWNORMAL)  If Result <= 32 Then  MsgBox "调用浏览器错误！", vbOKOnly + vbCritical, "错误：", 0  End If

上面给你介绍了使用API打开网页的方法，使用了ShellExecute这个API函数。ShellExecute的功能是运行一个外部程序（或者是打开一个已注册的文件、打开一个目录、打印一个文件等等），并对外部程序有一定的控制。有几个API函数都可以实现这些功能，但是在大多数情况下ShellExecute是更多的被使用的，同时它并不是太复杂。

除了使用API，还有其他几种方法，你可以借鉴参考一下。

基于start.exe 

                  url="http://baidu.com"  
                  shell "cmd.exe /c start " & url,0

基于文件浏览器(explorer.exe) 

url = “http://baidu.com”
 Shell "explorer " & url, 0

基于IE浏览器的

Dim Browser As Object  
                  url="http://baidu.com"  
                 Set Browser = CreateObject("InternetExplorer.Application")  
                  Browser.Visible = True  
                  Browser.Navigate (url)  
                  Private Sub cmd1_Click()  
                  url = "http://baidu.com"  
                  exe = Environ("programfiles") & "\Internet Explorer\IEXPLORE.EXE"  
                  Shell exe & Space(1) & url, 1  
                  End Sub

Answer 3

webbrownser
好像这么拼的
有个按钮的
工具栏里面找找

Answer 4

嗯。。。。。

Private Sub Command1_Click()
Shell "explorer http:\\www.baidu.com"
End Sub

将www.baidu.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 Long
ShellExecute Me.hWnd, "open", "http://www.baidu.com/", "", "", 1