来看看这段代码，为什么不能把右击菜单给屏蔽掉啊？

Question

Dim WithEvents M_Dom As MSHTMLCtl.HTMLDocument
Private Function M_Dom_oncontextmenu() As Boolean
        M_Dom_oncontextmenu = False
End FunctionPrivate Sub Webbrowser1_DownloadComplete()
    Set M_Dom = WebB.Document
End Sub

Answer 1

Dim WithEvents M_Dom As MSHTMLCtl.HTMLDocument
Private Function M_Dom_oncontextmenu() As Boolean
        M_Dom_oncontextmenu = False
End FunctionPrivate Sub Webbrowser1_DownloadComplete()
    Set M_Dom = WebB.Document
End Sub

Answer 2

微软提供的Webbrowser扩展COM服务器对象。该对象实现了IDocHostUIHandler接口。通过它可以控制你的程序中的Webbrowser控件。可以关闭右键菜单、禁止快捷键、禁止Ctrl+N打开新窗口等。压缩包中包含了WBCustomizer.dll以及VB范例，利用regsvr32.exe注册WBCustomizer.dll，然后运行范例就可以看到组件的运行效果。 http://www.applevb.com/sourcecode/wbcustom.zip

Answer 3

如果要使用webbrowser控件的话，正确的方法应该是：Dim WithEvents x1 As MSHTML.HTMLDocument
Private Sub Command1_Click()
    WebBrowser1.Navigate "http://www.applevb.com"
End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Set x1 = WebBrowser1.Document
End SubPrivate Function x1_oncontextmenu() As Boolean
    x1_oncontextmenu = False
End Function
是MSHTML.HTMLDocument而不是MSHTMLCtl.HTMLDocument

Answer 4

但是如果用MSHTML.HTMLDocument
那没就会出现这样的错误：子程序或函数中的属性无效
这是怎么回事啊

Answer 5

那个地址打不开!往这里走吧:http://www.acky.net/vb/vbwin/wbcustom.zip试过了一下,还是屏蔽了IE的菜单就连页面上文本框的菜单都屏蔽了!这问题似乎连MS自己都难已通过其它途径解决~呵呵!!快快发布新版的Webbrowser控件...

Answer 6

添加控件也可以
Dim WithEvents M_Dom As MSHTMLCtl.HTMLDocumentPrivate Sub Form_Load()
WebBrowser1.Navigate "www.csdn.net"
End Sub
Private Function M_Dom_oncontextmenu() As Boolean
        M_Dom_oncontextmenu = False
End FunctionPrivate Sub Webbrowser1_DownloadComplete()
    Set M_Dom = WebB.Document
End Sub