老师们，请问图片按钮的click怎么表示呀

syxxzwd 2010-12-20 10:02:25

代码如下：
<td width="43%" align="right" style="height: 21px"><a href="gkmscjcx.aspx"><img src="images/msksrk.gif" width="216" height="61" border="0" /></a></td>

类似于以下按钮的方法：
Thisform.OleWebBrowse.Document.Forms("form1").Button4.Click

...全文

368 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

十豆三 2010-12-21

打赏
举报

直接加载你要的页面即可：
如：
查询美术类时
Thisform.OleWebBrowse.Navigate("http://www.sxkszx.cn/gkystkcx/gkmscjcx.aspx")

查询音乐类时
Thisform.OleWebBrowse.Navigate("http://www.sxkszx.cn/gkystkcx/gkyycjcx.aspx")

我是小数位 2010-12-21

打赏
举报

這個圖片點擊我也不清楚，但進來了還是幫你頂！

syxxzwd 2010-12-21

打赏
举报

十豆三老师，我这么判断怎么不行呢？应该怎么办？
IF Thisform.Tag="http://www.sxkszx.cn/gkystkcx/"
vDoc=Thisform.OleWebBrowse.Document
For i=0 To vDoc.All.Length - 1
vTag=vDoc.All(i)
If Upper(vTag.tagName)="img"
If vTag.src="http://www.sxkszx.cn/gkystkcx/images/msksrk.gif" && 美术
vTag.Click &&模拟鼠标单击
Endif
Endif
Endfor
RETURN
Endif
Endif

syxxzwd 2010-12-21

打赏
举报

我就是在找vf判断webBrowser1是不是busy的方法，呵呵，我是弄一点，找一点，学一点，呵呵，非常感谢你，十豆三老师

十豆三 2010-12-21

打赏
举报

你确认
Thisform.OleWebBrowse.Document.Forms("form1").Button4.Click && 退出查询
执行完毕了？

如果没有执行完毕应该无法实现模拟点击

建议你相关有等待、加载后才要执行的代码全部放到WebBrowse控件的DocumentComplete的事件中，如：
*** ActiveX Control Event ***
Lparameters pdisp, url
Do Case
Case 全局变量=1
&& 模拟美术点击
Case 全局变量=2
&& 模拟音乐点击
Case 全局变量=3
&& 模拟退出点击
&&等等
Endcase

你在适当时候、适当地方修改全局变量的值

或者：
不用全局变量，判断以下2个参数也可以
pdisp, url

syxxzwd 2010-12-21

打赏
举报

[Quote=引用 5 楼 apple_8180 的回复:]
SQL code
十豆三老师：为什么我放在程序里不能自动触发它呢？
Thisform.OleWebBrowse.Document.Forms("form1").Button4.Click && 退出查询
vDoc=Thisform.OleWebBrowse.Document
For i=0 To vDoc.All.Length - 1
vTag=vDoc.All(i)
If Upper(vTag.tagName)="img"
If vTag.src="http://www.sxkszx.cn/gkystkcx/images/msksrk.gif" && 美术
*If vTag.src="http://www.sxkszx.cn/gkystkcx/images/yyksrk.gif" && 音乐
vTag.Click &&模拟鼠标单击
Endif
Endif
Endfor
RETURN
*Thisform.cmd_readresults.Click

十豆三 2010-12-21

打赏
举报

vDoc = Thisform.OleWebBrowse.Document

For i = 0 To vDoc.All.Length - 1

	vTag= vDoc.All(i)

	If Upper(vTag.tagName)="IMG"

		If vTag.src = "http://www.sxkszx.cn/gkystkcx/images/msksrk.gif"	&& 美术

		*If vTag.src = "http://www.sxkszx.cn/gkystkcx/images/yyksrk.gif" && 音乐

			vTag.Click &&模拟鼠标单击

		Endif

	Endif

Endfor