vb 禁止右击

ASP　2013/12/9 17:18:55　　点击：不统计

原载于:转www.载for网站制作学习asp必.cn究

在用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的基础上运行，测试成功

原载于:网f站o学a习s制p作.cn