如何在VB中屏蔽WebBrowser的右键菜单？？请教!

Question

如题！！

Answer 1

你看看这个吧。
http://expert.csdn.net/Expert/topic/2642/2642541.xml?temp=.2746546是完全屏蔽掉FLASH的右键菜单，希望对你有所帮助

Answer 2

转载看到很多关于WebBrowser控件禁止右键的提问，回复的方法很多，其中有提到使用微软提供的Webbrowser扩展COM服务器对象（WBCustomizer.dll），但是该方法在我们想使用Webbrowser编辑网页（Webbrowser1.Document.execCommand "editMode"）的时候有很多弊端，比如不能显示选中的文本等。另有些方法也就不用一一列举了。这儿我想提到的是关于MSHTML.HTMLDocument引用Microsoft HTML OBject LibraryRem ＃窗体代码＃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 SubRem 好了，右键菜单没有了

Answer 3

谢谢楼上的兄弟，完全搞定了阿，请问MSHTML.HTMLDocument 
还有哪些消息可以利用？马上买单！！！

Answer 4

转载'引用 Microsoft HTML Object Library    Dim oDoc As HTMLDocument
    Dim oElement As Object
    Dim oTxtRgn As Object
    Dim sSelectedText As String
    
    Set oDoc = WebBrowser1.Document'获得文档对象
    Set oElement = oDoc.getElementById("T1")'获得ID="T1"的对象
    Set oTxtRgn = oDoc.selection.createRange'获得文档当前正选择的区域对象
   
    sSelectedText = oTxtRgn.Text'选择区域文本赋值    oElement.Focus'"T1"对象获得焦点    oElement.Select'全选对象"T1"    Debug.Print "你选择了文本：" & sSelectedText
上面这段儿还附送了其他功能，呵呵。精简一下是这样：
    Dim oDoc As Object
    Dim oTxtRgn As Object
    Dim sSelectedHTML As String
    
    Set oDoc = WebBrowser1.Document '获得文档对象
    Set oTxtRgn = oDoc.selection.createRange '获得文档当前正选择的区域对象
   
    sSelectedHTML = oTxtRgn.htmlText '选择区域文本赋值    Text1.Text=sSelectedHTML '文本框显示抓取得HTML源码
    ......'或者继续分析源码

Answer 5

online(龙卷风V2.0--再战江湖) 高就是高