vb 禁止右擊

    在用vb做客戶端軟件用到了引用WebBrowser，在引用的WebBrowser中vb禁止右擊，防止用戶查看代碼
    我們在vb中如何實現(xiàn)禁止右擊呢？
    第一步是引入對應(yīng)的工程部件
    在“工程/部件”對話框中勾選：Microsoft Internet Controls
    在“工程/引用”對話框中勾選：Microsoft HTML Object Library
    第二部是寫相關(guān)的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 '好了，右鍵菜單沒有了將上面的對象設(shè)置為瀏覽器的document
    End Sub
    代碼結(jié)束，可以測試一下，在vb6.0的基礎(chǔ)上運行，測試成功