屏蔽Webbrower 右键
Option Explicit
Dim WithEvents M_Dom As MSHTML.HTMLDocument
Private Sub Form_Load()
Me.WebBrowser1.Navigate (App.Path & "/sad.html")
End Sub
Private Function M_Dom_oncontextmenu() As Boolean
M_Dom_oncontextmenu = False
End Function
Private Sub Webbrowser1_DownloadComplete()
Set M_Dom = WebBrowser1.Document
End Sub
