在VB6.0中Web浏览器控件是WebBrowser,他的作用是让我们只要加入少量的代码,就能做出和IE功能一样强大的浏览器。
将WebBrowser添加到工具箱方法是:添加"部件"中选择Microsoft Internet Controls(SHDOCVW.dll),后点确定,WebBrowser在工具箱的图标为:
WebBrowser的功能强大是由众多方法、属性和行为组成的,下面说下它的主要属性、方法和行为。
WebBrowser的主要属性:
属性名 | 说明 |
LocationURL
| 返回当WebBrower中网页的URL |
LocationName
| 返回当WebBrower中网页的标题,即HTML中的Title标记 |
WebBrowser的主要方法:
方法名 | 作用 |
Navigate
| 浏览网页。如:WebBrower.Navigate "http://junqing124.update.vip2.com" |
GoBack
| 后退 |
GoForward
| 前进 |
GoHome
| 浏览主页 |
GoSearch
| 打开搜索页面 |
*******
| 刷新 |
Stop
| 停止 |
WebBrowser的主要事件:
事件名 | 说明 |
DownloadBegin
| 页面开始下载 |
DownloadComplete
| 页面下载完毕 |
TitleChange
| 浏览器的Title改变,即浏览新的页面 |
这里简单说了下WebBrower控件的部份属性、方法和行为。
下面是一个示例:
|
上面的四个按钮的名字分别为Command1、Command2、Command3、Command4,下面的文本框为Text1,最下面的是一个WebBrowser,名字为WebBrowser1
在Command1的Click事件加入:WebBrowser1.GoBack
在Command2的Click事件加入:WebBrowser1.GoForward
在Command3的Click事件加入:WebBrowser1.*******
在Command4的Click事件加入:If WebBrowser1.Busy = True Then WebBrowser1.Stop
在Text1的KeyPress事件加入:If KeyAscii = 13 Then WebBrowser1.Navigate Text1.Text
按F5运行,在文本输入网址后回车看看效果吧!