WebBrowser控件传值问题

Question

form1的WebBrowser加载一个网页网页中的连接如下<a href="##" id="11,22,33">点击测试</a>如何实现点击这个连接后，把id的11,22,33传值到form1的text1的控件中显示出来，

Answer 1

Dim WithEvents m_objDoc As HTMLDocumentPrivate Sub Form_Load()
    Me.WebBrowser1.Navigate2 "网页地址"
End SubPrivate Function m_objDoc_onclick() As Boolean
    If m_objDoc.activeElement.tagName = "A" Then
        Me.Text1 = m_objDoc.activeElement.Id
    End If
End FunctionPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Set m_objDoc = Me.WebBrowser1.Document
End Sub