vb webbrowser html源码,VB WebBrowser控件常用源码

1.WebBrowser打开网站代码为：WebBrowser1.Navigate "网址"

如打开百度代码：WebBrowser1.Navigate "http://baidu.com"

如打开主页代码：WebBrowser1.Navigate "about:blank"

2.IE相关命令按钮

刷新：WebBrowser1.Refresh

停止：WebBrowser1.Stop

上一页:

On Error GoTo lab

WebBrowser1.GoBack

Exit

Sub

lab:

msgox"没有上一页了"

下一页：

On Error GoTo lab

WebBrowser1.GoForward

Exit

Sub

lab:

msgox"没有下一页了"

3.禁止右键菜单、滚动条、判断是否加载完毕

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object,

URL As Variant)

On Error Resume Next'忽略错误

Dim js$'调用脚本禁止WebBrowser1右键菜单

js = "document.body.οncοntextmenu=function()" &

vbCrLf & _

"{event.returnValue=false;}"

WebBrowser1.Document.parentWindow.execScript js, "javascript"

WebBrowser1.Document.currentviewMode = 4 '本地文件列表视图，可选范围2-4

WebBrowser1.Document.body.Scroll = "no"

'yes显示，NO隐藏WebBrowser1滚动条

If (pDisp Is WebBrowser1.object) Then

Label1.Caption = "完成" '判断网页是否加载完毕

End If

End Sub

4.页面全部只在当前控件中显示

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As

Boolean)

On Error Resume Next

Cancel = True

WebBrowser1.Navigate

WebBrowser1.Document.activeelement.href'获取鼠标位置的链接并打开

End Sub

5.其它

显示的页面名称：Label1.Caption = WebBrowser1.LocationName

PS:收藏的内容不断更新中，欢迎大家补充....