| 内容 |
在用vb做客户端软件用到了引用WebBrowser，在引用的WebBrowser中vb禁止右击，防止用户查看代码
我们在vb中如何实现禁止右击呢？
第一步是引入对应的工程部件
在“工程/部件”对话框中勾选：Microsoft Internet Controls
在“工程/引用”对话框中勾选：Microsoft HTML Object Library
第二部是写相关的vb禁止右击代码
Dim WithEvents M_Dom As MSHTML.HTMLDocument'通过引用创建dom对象
Private Function M_Dom_oncontextmenu() As Boolean'对dom对象进行操作，当右击时返回false
M_Dom_oncontextmenu = False
End Function
Private Sub Webbrowser1_DownloadComplete()'当浏览器插件加载完毕
Set M_Dom = WebBrowser1.Document '好了，右键菜单没有了将上面的对象设置为浏览器的document
End Sub
代码结束，可以测试一下，在vb6.0的基础上运行，测试成功 |