＋设为首页 ＋添加到收藏夹
webbrowser里面的一个页面,在mouseover时怎样获取当前鼠标位置的元素ID
<table>
<tr><td id="1"></td></tr>
<tr><td id="2"></td></tr>
.
.
<tr><td id="5000"></td></tr>
</table>
在鼠标经过<td>时,VB的text控件显示改单元格的ID
像前面一个朋友说的,这个问题未必有人能回答
分数在问题解决后加
引用Microsoft HTML Object Library
Private WithEvents m_oDoc As HTMLDocument
Private Sub Form_Load()
WebBrowser1.Navigate2 "www.google.com"
End Sub
Private Sub m_oDoc_onmouseover()
Dim oEvent As CEventObj
Set oEvent = m_oDoc.parentWindow.event
Debug.Print "触发事件的元素的ID是"; oEvent.srcElement.Id
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Set m_oDoc = pDisp.Document
End Sub
