VB的WebBrowser自定义右键
来源:百度知道 编辑:UC知道 时间:2024/06/18 22:49:13
'引用Microsoft HTML OBject Library
'加入webbrowser控件
'在窗体上自定义一个菜单(设为MyMenu)
'复制下面代码,运行即可禁止右键菜单了
'====窗体代码====
Dim WithEvents M_Dom As MSHTML.HTMLDocument
Private Function M_Dom_oncontextmenu() As Boolean
M_Dom_oncontextmenu = False
End Function
Private Sub Webbrowser1_DownloadComplete()
Set M_Dom = Webbrowser1.Document '好了,右键菜单没有了
me.PopupMenu mymenu '弹出自定义菜单
End Sub
首先在"工程"菜单中添加一个引用:
Microsoft Internet Controls
第二步:创建一个菜单(例如PoupMnu1)
第三步:在引用到的窗体中定义一个事件:
Public WithEvents IEDoc As MSHTML.HTMLDocument
第四步:编写事件代码:
Private Function IEDoc_oncontextmenu() As Boolean
IEDoc_oncontextmenu = False
PopupMenu PoupMnu1 '右键弹出的菜单
End Function
第五步:在NavigateComplete2中设置事件对象:
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
Set IEDoc = WebBrowser1.Document
End Sub