在用vb做客戶端軟件用到了引用WebBrowser，在引用的WebBrowser中vb禁止右擊，防止用戶查看代碼
我們在vb中如何實現(xiàn)禁止右擊呢？
第一步是引入對應的工程部件
在“工程/部件”對話框中勾選：Microsoft Internet Controls
在“工程/引用”對話框中勾選：Microsoft HTML Object Library
第二部是寫相關的vb禁止右擊代碼
Dim WithEvents M_Dom As MSHTML.HTMLDocument'通過引用創(chuàng)建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
代碼結(jié)束，可以測試一下，在vb6.0的基礎上運行，測試成功
更多信息請查看IT技術專欄
公眾號
事業(yè)單位
當前位置：
公考類
招聘類
各類考試