51Testing软件测试论坛
标题:
QTP检查WEBbutton是否存在
[打印本页]
作者:
491623644
时间:
2013-6-20 11:07
标题:
QTP检查WEBbutton是否存在
Dim MyButtons,Button
MyButtons=array("Search","Reset")
For Button=0 to ubound(MyButtons)
Environment("MyButtons")=browser("name:=ecVision.*","title:=ecVision.*").Page("title:=ecVision Suite","name:=discussWin")._
frame("html id:=clientframe").webbutton("html id:=commonSearch"&MyButtons(Button)&"Btn").exist
复制代码
代码如上，在检查webbutton时是否存在时，QTP检查一直不存在，实际程序已经跳转到该页面，该button实际存在
[attach]85753[/attach] 附上button属性
作者:
joykao
时间:
2013-6-20 11:34
对象库里都这些对象了为何还要用描述性编程，自己增加难度？而且你还描述错了。。。。
作者:
491623644
时间:
2013-6-20 13:36
回复
2#
joykao
哪个地方描述错了，可以指出么？
作者:
Alvin-x
时间:
2013-6-20 14:17
Dim MyButtons,Button
MyButtons=array("Search","Reset")
For Button=0 to ubound(MyButtons)
If browser("name:=ecVision.*","title:=ecVision.*").Page("title:=ecVision Suite","name:=discussWin")._
frame("html id:=clientframe").webbutton("html id:=commonSearch"&MyButtons(Button)&"Btn").exist(1) Then
Exit For
End If
复制代码
作者:
491623644
时间:
2013-6-20 14:32
回复
4#
Alvin-x
谢谢，为什么要加if来判断呢？
Environment("MyButtons")=browser("name:=ecVision.*","title:=ecVision.*").Page("title:=ecVision Suite","name:=discussWin")._
frame("html id:=clientframe","name:=clientframe").webbutton("html id:=commonSearch"&MyButtons(Button)&"Btn").exist
If Environment("MyButtons") Then
Reporter.ReportEvent 0, "Find Web Button", "Find the Button"&":"& MyButtons(Button)
else
Reporter.ReportEvent 1, "Find Web Button", "Can't find the Button" &":"& MyButtons(Button)
End If
复制代码
我是这样来判断的，exist后面加一个时间有什么好处？
作者:
黑羽祭
时间:
2013-6-20 16:06
回复
5#
491623644
缩短判断时间
欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)
Powered by Discuz! X3.2
对象库里都这些对象了为何还要用描述性编程，自己增加难度？而且你还描述错了。。。。