在用vb做客戶端軟件用到了引用WebBrowser，在引用的WebBrowser中vb禁止右擊，防止用戶查看代碼
我們?cè)趘b中如何實(shí)現(xiàn)禁止右擊呢？
第一步是引入對(duì)應(yīng)的工程部件
在“工程/部件”對(duì)話框中勾選：Microsoft Internet Controls
在“工程/引用”對(duì)話框中勾選：Microsoft HTML Object Library
第二部是寫相關(guān)的vb禁止右擊代碼
Dim WithEvents M_Dom As MSHTML.HTMLDocument'通過引用創(chuàng)建dom對(duì)象
Private Function M_Dom_oncontextmenu() As Boolean'對(duì)dom對(duì)象進(jìn)行操作，當(dāng)右擊時(shí)返回false
M_Dom_oncontextmenu = False
End Function
Private Sub Webbrowser1_DownloadComplete()'當(dāng)瀏覽器插件加載完畢
Set M_Dom = WebBrowser1.Document '好了，右鍵菜單沒有了將上面的對(duì)象設(shè)置為瀏覽器的document
End Sub
代碼結(jié)束，可以測(cè)試一下，在vb6.0的基礎(chǔ)上運(yùn)行，測(cè)試成功