获取页面上所有指定属性的对象
by jack在QTP脚本编写的时候，我们可能会遇到这种检查点：比如获取checkbox的个数等等，这时会提出“获取页面上所有指定属性的对象”的需求。下面是用descrīption对象实现的一个函数，作用就是实现上述需求。
Function getItemList(PageObject,PropertyName,PropertyValue)
Dim oItemDesc
Dim n
Set ōItemDesc=descrīption.Create
If isarray(PropertyName) and isarray(PropertyValue) Then
Dim iCountPropertyName
Dim iCountPropertyValue
iCountPropertyName = ubound(PropertyName)
iCountPropertyValue = ubound(PropertyValue)
If iCountPropertyName <= iCountPropertyValue Then
For n=0 to ubound(PropertyName)
oItemDesc(PropertyName(n)).value=PropertyValue(n)
Next
Else
'lost property value
'msgbox "lost property value"
Exit Function
End If
Else If (not isarray(PropertyName)) and (not isarray(PropertyValue)) Then
oItemDesc(PropertyName).value=PropertyValue
Else
'error
'msgbox "error"
Exit Function
End If
End If
Set getItemList=PageObject.childobjects(oItemDesc)
End Function
输入参数有3个，page对象，属性名，属性值；其中属性名和属性值可以为数组，应用举例：
'取出页面所有编辑框
set ōChildList = getItemList(page("51Testing软件测试网"),"micclass","WebEdit")
'编辑框数量
iCountChildList = oChildList.count
'取出页面所有name含有“测试”的链接
set ōChildList = getItemList(page("51Testing软件测试网"),array("micclass","name"),array("Link","测试.*"))
'点击第二个链接
oChildList(1).click 不错，值得学习。不过，从“Set ōItemDesc=descrīption.Create” 这句话来看，是从哪个地方转载过来的。能否说明一下此文的出处？ 原文就是LZ的博客上的，呵呵
LZ是阿里巴巴一个QA架构师MS :L
藏龙卧虎....
zte_boy
你知道的还不少哦
回复 2# 的帖子
Set ōItemDesc=descrīption.Create这个是QTP里面的一种用法。并非是引用自别的地方。。
这个是QTP本身提供的一种Description对象。用于返回对象包含的属性。
Set ōItemDesc=descrīption.Create( )
这句话就是创建Description的一种典型的用法。
页:
[1]
