UC知道VB webbrowser 点击图片连接 问题
来源：百度知道 编辑：UC知道 时间：2024/07/08 13:36:51
HTML框架中的部分内容如下：
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD align=right width=94> <IMG
style="PADDING-RIGHT: 5px; CURSOR: hand" onclick=Go();
height=28 src="tupian/06.gif" width=64> </TD>
<TD> <IMG height=28 src="tupian/01.gif" width=64> </TD>
<TD> <IMG style="CURSOR: hand" onclick=goOut(); height=28
src="tupian/03.gif" width=64> </TD>
<TD width=12> </TD> </TR> </TBODY> </TABLE>
因为IMG没有ID。没有名字。只有一个地址
那么我使用
Dim vDoc, vTag
Dim I As Integer
Set vDoc = Form1.Web1.Document.frames(2).Document
For I = 0 To (vDoc.All.Length - 1)
If UCase(vDoc.All(I).t
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD align=right width=94> <IMG
style="PADDING-RIGHT: 5px; CURSOR: hand" onclick=Go();
height=28 src="tupian/06.gif" width=64> </TD>
<TD> <IMG height=28 src="tupian/01.gif" width=64> </TD>
<TD> <IMG style="CURSOR: hand" onclick=goOut(); height=28
src="tupian/03.gif" width=64> </TD>
<TD width=12> </TD> </TR> </TBODY> </TABLE>
因为IMG没有ID。没有名字。只有一个地址
那么我使用
Dim vDoc, vTag
Dim I As Integer
Set vDoc = Form1.Web1.Document.frames(2).Document
For I = 0 To (vDoc.All.Length - 1)
If UCase(vDoc.All(I).t
我试了一下，可以点击,除非你的frames(2)用得不对：
Private Sub Command1_Click()
Dim vDoc, vTag
Dim I As Integer
Set vDoc = Form1.Web1.Document.frames(2).Document
For I = 0 To (vDoc.All.Length - 1)
If UCase(vDoc.All(I).tagName) = "IMG" Then
Set vTag = vDoc.All(I)
If vTag.nameprop = "06.gif" Then
vTag.Click
End If
End If
Next
End Sub
确定是frames(2)?
msgbox vtag.src'看看先。。调试都不会吗？
If instr(vTag.src, "111.gif")>0 Then