VB 禁止WebBrowser右键

ggp 程序 2013-03-08 463 次浏览

使用下边方法可以实现。

’引用Microsoft HTML OBject Library
’加入webbrowser控件
’复制下面代码,运行即可禁止右键菜单了
Dim WithEvents M_Dom As MSHTML.HTMLDocument
Private Function M_Dom_oncontextmenu() As Boolean
M_Dom_oncontextmenu = False
End Function
Private Sub Webbrowser1_DownloadComplete()
Set M_Dom = Webbrowser1.Document ’好了,右键菜单没有了
End Sub
回顶部