UC知道关于WebBrowser禁止右键
来源：百度知道 编辑：UC知道 时间：2024/06/21 17:33:19
搜索发现很多这样的程序，都说可以，但我加入时却是Dim WithEvents M_Dom As MSHTML.HTMLDocument 出错：“用户自定义类型未定义”。“Microsoft HTML OBject Library”这个已经引用了的。
请教高手何教？
引用Microsoft HTML OBject Library
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
还有下面的方法也无效：
Private Sub WebBrowser1_Click()
WebBrowser1.IsWebBrowserContextMenuEnabled = False
End Sub
请教高手何教？
引用Microsoft HTML OBject Library
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
还有下面的方法也无效：
Private Sub WebBrowser1_Click()
WebBrowser1.IsWebBrowserContextMenuEnabled = False
End Sub
引用Microsoft HTML OBject Library
'加入webbrowser控件
'在窗体上自定义一个菜单(设为MyMenu)
'复制下面代码，运行即可禁止右键菜单了
'====窗体代码====
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 '好了，右键菜单没有了
me.PopupMenu mymenu '弹出自定义菜单
End Sub
本地测试通过的,你要是不行,重装VB试试看
引用Microsoft HTML OBject Library
定义：
Dim WithEvents M_Dom As MSHTML.HTMLDocument
Private Function M_Dom_oncontextmenu() As Boolean
M_Dom_oncontextmenu = False
End Function
这种方法肯定正确，不用怀疑。
此引用文件为 mshtml.tlb ，在windows\system32文件夹下。
你出现的问题可能是该文件不存在，或损坏，或者版本过低。
请尝试更新试试。