1.WebBrowser打开网站代码为:WebBrowser1.Navigate "网址"
如打开百度代码:WebBrowser1.Navigate ""
如打开主页代码: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:收藏的内容不断更新中,欢迎大家补充....