VB获取HTML中的操作

Question

打比方我在DHTMLEdit中插入一段HTML语句<div style='font-size:9pt;color:#15428B;font-family:verdana'>
<table border="0" width="200">
<tr>
<td><FORM ID='1' METHOD=POST><a href=''>1</a></FORM></td>
<td><FORM ID='2' METHOD=POST><a href=''>2</a></FORM></td>
<td><FORM ID='3' METHOD=POST><a href=''>3</a></FORM></td>
</tr>
</table>
</div>我点1的时候，如何让VB触发一个对应事件，点2的时候触发另外一个事件，而不是打开窗体？

Answer 1

这样写你的代码：<div style='font-size:9pt;color:#15428B;font-family:verdana'> 
<table border="0" width="200"> 
<tr> 
<td id="1" style="CURSOR: hand;"> <FORM METHOD=POST> 1 </FORM> </td> 
<td id="2" style="CURSOR: hand;"> <FORM METHOD=POST> 2 </FORM> </td>
<td id="3" style="CURSOR: hand;"> <FORM METHOD=POST> 3 </FORM> </td>
</tr> 
</table> 
</div>  
然后在vb中：Option Explicit
Private WithEvents Doc As MSHTML.HTMLDocumentPrivate Sub Browser_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
    Set Doc = Browser.Document
End SubPrivate Sub Form_Load()
    Me.Browser.Navigate App.Path & "\youpage.htm"
End Sub
Private Function Doc_onclick() As Boolean
    If Doc.activeElement Is Nothing Then
        Exit Function
    Else
        MsgBox Doc.activeElement.Id
    End If
    Doc_onclick = True
End Function

Answer 2

触发的是VB事件还HTML中的VBScript事件?