VB怎样实现按钮打开网页链接呢?

VB怎样实现按钮打开网页链接呢?,第1张

1、打开Microsoft Visual Studio 2008/2010或者Visual basic开发工具;

2、新建一个windows窗体应用程序,并在窗体上添慎行加友消一个按钮

3、双击按钮进入按钮单击事件,在事件中添加如下代码:

vb6.0开发环境使用 Shell "explorer http://www.baidu.cn/"

VS2008/2010开发环境使用 Shell("explorer http://www.baidu.cn/")

4、按F5键运行,鼠标点击按钮,程序会启动浏览器并打开所设定的网址,如果需要打开其他网址,将步骤宽告哗3中的http://www.baidu.cn/更换成你需要的地址即可。

VB 中使用IE 打开一个网页的一种方法如下:

1、先在程序工程中添加 WebBrowser控件

“工程”->"部件"->找到"Microsoft Internet Controls" 选择->"确定"

2、在窗体中添加 WebBrowser 控件,并根据 Form窗体的大小放大 WebBrowser可见区域

3、增加一个按扭Command1 在Command1_Click() 事件中添加如下程序

Private Sub Command1_Click()

    散樱   冲链丛   WebBrowser1.Navigate "http://www.21cn.com"

'网址可以自己更改

   End Sub

4、运行程序,点击按扭就可以了

5、你也可以把网址写在一个TextBox 中唤悔,这样更换比较方便

如    TextBox 名称为 txtURL

那么 WebBrowser1.Navigate txtUrl

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">橘空

<head>

<title>new document </title>

<meta name="generator" content="editplus" />

<meta name="author" content=""圆拦瞎 />

<meta name="keywords" content="" />

<meta name="description" content="" />

</head>

<script>

function openURL()

{

window.open("b.html","","resizable=false,top=120,left=200,width=500,height=420,scrollbars=yes")

}

</script>

<body>

<input type="button" value="跳转" onclick="openURL()">

</body>

</html>

自己衡帆创建一个空的b.HTML就可以了


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/yw/12450104.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-25
下一篇 2023-05-25

发表评论

登录后才能评论

评论列表(0条)

保存