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
·上一篇:vb 判断联网 >> ·下一篇:网站制作学习网