怎么用VB打开网页?

对高手来说很简单吧,就是单击一个按扭就是弹出一个网页。怎么实现?... 对高手来说很简单吧,就是单击一个按扭就是弹出一个网页。怎么实现? 展开
 我来答
zdingyun
推荐于2017-09-07 · 知道合伙人软件行家
zdingyun
知道合伙人软件行家
采纳数:15429 获赞数:48174
1982年上海业余工业大学化工系毕业 现退休

向TA提问 私信TA
展开全部

用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
AiPPT
2024-09-19 广告
随着AI技术的飞速发展,如今市面上涌现了许多实用易操作的AI生成工具1、简介:AiPPT: 这款AI工具智能理解用户输入的主题,提供“AI智能生成”和“导入本地大纲”的选项,生成的PPT内容丰富多样,可自由编辑和添加元素,图表类型包括柱状图... 点击进入详情页
本回答由AiPPT提供
初夢枫
2018-04-09 · TA获得超过1.6万个赞
知道小有建树答主
回答量:395
采纳率:100%
帮助的人:11.3万
展开全部

方法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) 语言,是一种在计算技术发展历史上应用得最为广泛的语言。

本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
zenper
推荐于2017-09-09 · TA获得超过153个赞
知道小有建树答主
回答量:101
采纳率:0%
帮助的人:60万
展开全部
我再给你介绍一个用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)
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
jghuhg
2010-10-07 · TA获得超过157个赞
知道小有建树答主
回答量:297
采纳率:0%
帮助的人:216万
展开全部
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
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
35665447
2010-10-07 · TA获得超过1.1万个赞
知道大有可为答主
回答量:7021
采纳率:62%
帮助的人:5135万
展开全部
Private Sub Command1_Click()
Shell "explorer http://www.baidu.com", 1
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式