VB高手： WebBrowser右键自定义菜单

'引用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 'd出自定义菜单

End Sub

Dim WithEvents M_Dom As MSHTML.HTMLDocument

Private Sub Form_Load()

WebBrowser1.navigate "www.baidu.com"

End Sub

Private Function M_Dom_oncontextmenu() As Boolean

M_Dom_oncontextmenu = False

Me.PopupMenu mymenu 'd出自定义菜单

End Function

Private Sub Webbrowser1_DownloadComplete()

Set M_Dom = WebBrowser1.document '好了，右键菜单没有了

End Sub

svipvb怎么用，在窗体出现的情况下,由VB编程环境的菜单中选工具,在其下拉菜单下选菜单编辑器,然后按如下说明 *** 作:

“菜单编辑器”对话框

使用菜单编辑器可以为应用程序创建自定义菜单并定义其属性。

对话框选项

“标题”

使用该选项可以输入菜单名或命令名，这些名字出现在菜单条或菜单之中。

如果想在菜单中建立分隔符条，则应在Caption 框中键入一个连字符 (-)。

为了能够通过键盘访问菜单项，可在一个字母前插入 &符号。在运行时，该字母带有下划线（&符号是不可见的），按 ALT 键和该字母就可访问菜单或命令。如果要在菜单中显示 &符号，则应在标题中连续输入两个 &符号。

---