vb.net中用com通讯实现对HTMLDocument的事件捕捉（原创）

定义了事件

Public Event oncontextmenu()

下面是事件的触发（其他代码省略）

Private Function m_doc_oncontextmenu()Function m_doc_oncontextmenu() As Boolean Handles m_doc.oncontextmenu
        RaiseEvent oncontextmenu()
        m_doc_oncontextmenu = False
    End Function

其中

Dim WithEvents m_doc As mshtml.HTMLDocument

在.net中Handles m_doc.oncontextmenu无效，不知道是什么原因
用Com通讯实现如下

Dim icpc As UCOMIConnectionPointContainer
            Dim g As Guid
            icpc = CType(wb.Document, UCOMIConnectionPointContainer)
            g = GetType(HTMLDocumentEvents2).GUID
            icpc.FindConnectionPoint(g, icp)
            icp.Advise(New HandleWebBrowserDHTMLEvents, cook)
            m_doc = wb.Document

HandleWebBrowserDHTMLEvents定义如下，Overridable所有Event方法

Public Class HandleWebBrowserDHTMLEventsClass HandleWebBrowserDHTMLEvents
    Implements HTMLDocumentEvents2

    Public HandleWebBrowserDHTMLEvents()
    Public Overridable Sub onrowsinserted()Sub onrowsinserted(ByVal pEvtObj As IHTMLEventObj) Implements HTMLDocumentEvents2.onrowsinserted
    End Sub
    Public Overridable Sub onactivate()Sub onactivate(ByVal e As IHTMLEventObj) Implements HTMLDocumentEvents2.onactivate

    End Sub
    Public Overridable Sub onafterupdate()Sub onafterupdate(ByVal e As IHTMLEventObj) Implements HTMLDocumentEvents2.onafterupdate
    End Sub
    Public Overridable Function onbeforeactivate()Function onbeforeactivate(ByVal e As IHTMLEventObj) As Boolean Implements HTMLDocumentEvents2.onbeforeactivate
        onbeforeactivate = True
    End Function

    Public Overridable Function onbeforedeactivate()Function onbeforedeactivate(ByVal e As IHTMLEventObj) As Boolean Implements HTMLDocumentEvents2.onbeforedeactivate
        onbeforedeactivate = True
    End Function
    Public Overridable Sub onbeforeeditfocus()Sub onbeforeeditfocus(ByVal e As IHTMLEventObj) Implements HTMLDocumentEvents2.onbeforeeditfocus
    End Sub
    Public Overridable Function onbeforeupdate()Function onbeforeupdate(ByVal e As IHTMLEventObj) As Boolean Implements HTMLDocumentEvents2.onbeforeupdate
        onbeforeupdate = True
    End Function
    Public Overridable Sub oncellchange()Sub oncellchange(ByVal e As IHTMLEventObj) Implements HTMLDocumentEvents2.oncellchange
    End Sub
    Public Overridable Function onclick()Function onclick(ByVal e As IHTMLEventObj) As Boolean Implements HTMLDocumentEvents2.onclick
        onclick = True
    End Function
    Public Overridable Function oncontextmenu()Function oncontextmenu(ByVal e As IHTMLEventObj) As Boolean Implements HTMLDocumentEvents2.oncontextmenu
        oncontextmenu = False
    End Function
    Public Overridable Function oncontrolselect()Function oncontrolselect(ByVal e As IHTMLEventObj) As Boolean Implements HTMLDocumentEvents2.oncontrolselect
        oncontrolselect = True
    End Function
    Public Overridable Sub ondataavailable()Sub ondataavailable(ByVal e As IHTMLEventObj) Implements HTMLDocumentEvents2.ondataavailable
    End Sub
    Public Overridable Sub ondatasetchanged()Sub ondatasetchanged(ByVal e As IHTMLEventObj) Implements HTMLDocumentEvents2.ondatasetchanged
    End Sub
    Public Overridable Sub ondatasetcomplete()Sub ondatasetcomplete(ByVal e As IHTMLEventObj) Implements HTMLDocumentEvents2.ondatasetcomplete
    End Sub
    Public Overridable Function ondblclick()Function ondblclick(ByVal e As IHTMLEventObj) As Boolean Implements HTMLDocumentEvents2.ondblclick
        ondblclick = True
    End Function
    Public Overridable Sub ondeactivate()Sub ondeactivate(ByVal e As IHTMLEventObj) Implements HTMLDocumentEvents2.ondeactivate
    End Sub
    Public Overridable Function ondragstart()Function ondragstart(ByVal e As IHTMLEventObj) As Boolean Implements HTMLDocumentEvents2.ondragstart
        ondragstart = True
    End Function
    Public Overridable Function onerrorupdate()Function onerrorupdate(ByVal e As IHTMLEventObj) As Boolean Implements HTMLDocumentEvents2.onerrorupdate
        onerrorupdate = True
    End Function
    Public Overridable Sub onfocusin()Sub onfocusin(ByVal e As IHTMLEventObj) Implements HTMLDocumentEvents2.onfocusin
    End Sub
    Public Overridable Sub onfocusout()Sub onfocusout(ByVal e As IHTMLEventObj) Implements HTMLDocumentEvents2.onfocusout
    End Sub
    Public Overridable Function onhelp()Function onhelp(ByVal e As IHTMLEventObj) As Boolean Implements HTMLDocumentEvents2.onhelp
        onhelp = True
    End Function
    Public Overridable Sub onkeydown()Sub onkeydown(ByVal e As IHTMLEventObj) Implements HTMLDocumentEvents2.onkeydown
    End Sub
    Public Overridable Function onkeypress()Function onkeypress(ByVal e As IHTMLEventObj) As Boolean Implements HTMLDocumentEvents2.onkeypress
        onkeypress = True
    End Function
    Public Overridable Sub onkeyup()Sub onkeyup(ByVal e As IHTMLEventObj) Implements HTMLDocumentEvents2.onkeyup

    End Sub
    Public Overridable Sub onmousedown()Sub onmousedown(ByVal e As IHTMLEventObj) Implements HTMLDocumentEvents2.onmousedown

    End Sub
    Public Overridable Sub onmousemove()Sub onmousemove(ByVal e As IHTMLEventObj) Implements HTMLDocumentEvents2.onmousemove

    End Sub
    Public Overridable Sub onmouseout()Sub onmouseout(ByVal e As IHTMLEventObj) Implements HTMLDocumentEvents2.onmouseout

    End Sub
    Public Overridable Sub onmouseover()Sub onmouseover(ByVal e As IHTMLEventObj) Implements HTMLDocumentEvents2.onmouseover

    End Sub
    Public Overridable Sub onmouseup()Sub onmouseup(ByVal e As IHTMLEventObj) Implements HTMLDocumentEvents2.onmouseup

    End Sub
    Public Overridable Function onmousewheel()Function onmousewheel(ByVal e As IHTMLEventObj) As Boolean Implements HTMLDocumentEvents2.onmousewheel
        onmousewheel = True
    End Function
    Public Overridable Sub onpropertychange()Sub onpropertychange(ByVal e As IHTMLEventObj) Implements HTMLDocumentEvents2.onpropertychange

    End Sub
    Public Overridable Sub onreadystatechange()Sub onreadystatechange(ByVal e As IHTMLEventObj) Implements HTMLDocumentEvents2.onreadystatechange

    End Sub
    Public Overridable Sub onrowenter()Sub onrowenter(ByVal e As IHTMLEventObj) Implements HTMLDocumentEvents2.onrowenter

    End Sub
    Public Overridable Function onrowexit()Function onrowexit(ByVal e As IHTMLEventObj) As Boolean Implements HTMLDocumentEvents2.onrowexit
        onrowexit = True
    End Function
    Public Overridable Sub onrowsdelete()Sub onrowsdelete(ByVal e As IHTMLEventObj) Implements HTMLDocumentEvents2.onrowsdelete

    End Sub

    Public Overridable Sub onselectionchange()Sub onselectionchange(ByVal e As IHTMLEventObj) Implements HTMLDocumentEvents2.onselectionchange

    End Sub
    Public Overridable Function onselectstart()Function onselectstart(ByVal e As IHTMLEventObj) As Boolean Implements HTMLDocumentEvents2.onselectstart
        onselectstart = True
    End Function
    Public Overridable Function onstop()Function onstop(ByVal e As IHTMLEventObj) As Boolean Implements HTMLDocumentEvents2.onstop
        onstop = True
    End Function
End Class