怎么用VB打开网页？

2024-11-28 15:42:11

推荐回答（5个）

回答1：

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

方法1)可用Shell函数执行一个可执行文件explorer.exe来打开网页。

Shell 函数，

执行一个可执行文件，返回一个 Variant
(Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。

Private Sub Command2_Click()
    Shell "explorer.exe http://www.baidu.com"
End Sub

方法2)使用WebBrowser直接建立浏览器。

在 Visual Basic 里还可以向工程中增加其它类型的 Internet 功能，包括：

Visual Basic 应用程序的 Internet 扩展。可以使用一些特殊控件，它们提供了和Internet 有关的功能。这些控件包括
Internet Transfer 控件、 WebBrowser 控件，以及 WinSock 控件。

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

回答2：

方法1)可用Shell函数执行一个可执行文件explorer.exe来打开网页。

Shell 函数，

执行一个可执行文件，返回一个 Variant

(Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。

Private Sub Command2_Click()

Shell "explorer.exe http://www.baidu.com"

End Sub

方法2)使用WebBrowser直接建立浏览器。

在 Visual Basic 里还可以向工程中增加其它类型的 Internet 功能，包括：

Visual Basic 应用程序的 Internet 扩展。可以使用一些特殊控件，它们提供了和Internet 有关的功能。这些控件包括

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

Private Sub Command1_Click()

WebBrowser1.Navigate "http://www.baidu.com"

End Sub

Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，为结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。是一种可用于微软自家产品开发的语言。

“Visual” 指的是开发图形用户界面 (GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。 “Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言，是一种在计算技术发展历史上应用得最为广泛的语言。

回答3：

我再给你介绍一个用API函数来完成打开网页的例子：

'函数申明
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

'在某个事件过程中添加如下代码：（如：Command_Click事件）
Dim lngReturn As Long
lngReturn = ShellExecute(Me.hwnd, "open", "http://www.baidu.com", "", "", 0)

回答4：

WebBrowser1控件能打开网页

工程----部件----添加 Microsoft Internet Controls

Private Sub Command1_Click()
WebBrowser1.Navigate2 "www.baidu.com"
End Sub

还有一种，直接在VB程序外部打开，不用控件，更棒！
Private Sub Command1_Click()
Set ws = CreateObject("wscript.shell")
ws.run "iexplore.exe www.baidu.com"
End Sub

回答5：

Private Sub Command1_Click()
Shell "explorer http://www.baidu.com", 1
End Sub