WB控件如何获得网页上鼠标停留时的提示信息

[lwj_1986]

我的意思就是 在我们浏览网页的时经常把鼠标放到某张图片或是某个按纽上时

就会弹出一个提示信息

我想通过WB控件获得它的提示 信息 应该怎么做

通过代码

<TD width="16"><IMG id="<%=@uin%>flag" style="display:none" src=""></TD>


是这样的

提示是 <%=@uin%> 但是直接通过代码 得到的是<%=@uin%>

而实际浏览网页时 就是数字

[lwj_1986]

今天没人在么？ 还是不能实现呢？

[zdwk223]

不直接通过代码。HTML文档中并不包含所有IE页面可见元素。
直接用webbrowser打开这个页面，通过webbrowser.document.all(i)访问这个IMG的id即可。

[lwj_1986]

但是怎么判断 是哪个IMG ID 呢？
不可能所有ID都显示吧 ？

而且通过webbrowser.document.all(i)

怎么访问呢？ 可以给出个具体的离子么？

[VBToy]

工程中引用htmldocument对象。
网页中的提示信息，比如图片，应该是由alt属性设置的,如<img src="test.jpg" alt="试验图片">，

Private WithEvents htmDoc As HTMLDocument
Private Sub Form_Load()
   WebBrowser1.Navigate2 App.Path & "\test.htm"
   Set htmDoc = WebBrowser1.Document
End Sub
Private Sub htmDoc_onmouseover()
    On Error Resume Next 
    Dim x As Long, y As Long
    x = htmDoc.parentWindow.event.clientX
    y = htmDoc.parentWindow.event.clientY
    Label1.Caption = htmDoc.elementFromPoint(x, y).alt 'Label控件中显示提示信息    
End Sub