将"测试"进行到底!~!
转载[楷子狐]随机选择页面上所有下拉框,函数参数怎样设置为一个对象?
上一篇 /
下一篇 2008-02-19 13:38:49
/ 个人分类:QTP板块
给对象添加自定义方法,随机选择页面上所有下拉框
2008-02-19 11:57:18 / 个人分类:测试技术
一个函数,随机选择页面上的下拉框:软件测试专业网站:51Testing软件测试网/A@k$L&g!U*B
××××××××××××××××××××××××××××××××××××××××××××××
dim i
Set ōDesc = Descrīption.Create()
oDesc("html tag").Value = "SELECT"
oDesc("disabled").Value = 0
Set lists = myPage.ChildObjects(oDesc)
For i = 0 To Lists.Count - 1
Lists(i).select RandomNumber(0, Lists(i).GetROProperty("items count")-1)
Next
End Sub
AllSelect(rightFrame) '“rightFrame”为一个框架页面,过程调用成功!
×××××××××××××××××××××××××××××××××××××××××××××××
同理,给对象添加方法:
Public Sub AllSelect(byref myPage)
Set ōDesc = Descrīption.Create()
oDesc("html tag").Value = "SELECT"
oDesc("disabled").Value = 0
Set lists = myPage.ChildObjects(oDesc)
For i = 0 To Lists.Count - 1
Lists(i).select RandomNumber(0, Lists(i).GetROProperty("items count")-1)
Next
RegisterUserFunc "Frame", "AllSelect", "AllSelect",True
rightFrame.AllSelect '“rightFrame”为一个框架页面,方法调用成功
×××××××××××××××××××××××××××××××××××××××××××××××
问题解决
Public Sub AllSelect(byref myPage)
dim i
Set ōDesc = Descrīption.Create()
oDesc("html tag").Value = "SELECT"
oDesc("disabled").Value = 0
Set lists = myPage.ChildObjects(oDesc)
For i = 0 To Lists.Count - 1
Lists(i).select RandomNumber(0, Lists(i).GetROProperty("items count")-1)
Next
End Sub
RegisterUserFunc "Frame", "AllSelect", "AllSelect",True
rightFrame.AllSelect '成功!
收藏
举报
TAG:
QTP板块