看了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已经引用了Microsoft HTML OBject Library

解决方案 »

  1.   

    使用 WithEvents 变量时,应该注意下面这些限制条件: WithEvents 变量不能是派生对象变量。也就是说,不能把它声明为 As Object—当声明该变量时必须指定类名。
    不能把 WithEvents 变量声明为 As New。必须明确地创建事件源对象,并将它赋给 WithEvents 变量。
    不能在标准模块中声明 WithEvents 变量。只能在类模块、窗体模块以及其它定义类的模块中声明。
    不能创建 WithEvents 变量数组。
      

  2.   

    那怎么搞? 不用withevents行吗