Question

VB的WebBrowser自定义右键

VB的WebBrowser自定义右键, 不要找别人的答案乱答, 我试过很多百度搜索的方法都不行, 本人刚接触VB请说的详细些, 谢谢

Answer 1

'引用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

Answer 2

首先在"工程"菜单中添加一个引用:
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