2012.08.30qtp遍历页面控件

'---------------------------qtp遍历页面控件
Dim myDes,num,myLink
Set myDes = description.Create()  '创建描述对象
myDes("micclass").value = "link"  '根据对象的micclass保留属性赋值
set myLink =  browser("micclass:=Browser").page("micclass:=Page").ChildObjects(myDes) '创建对象实例
num = myLink.count '获取数量
print num '打印数量