QTP中如何快速获取Page中的对象个数(转)

Option Explicit

Dim BaseObject

Set BaseObject = Browser("name:=百度.*").Page("title:=百度.*")
 


MsgBox GetObjectCount( BaseObject, "Link" )


MsgBox GetVisibleObjectCount( BaseObject, "Link" )

 
Function GetObjectCount (BaseObject, classname)
   BaseObject.Init

   Dim objectFound

   set bjectFound = Description.Create()
   objectFound("micclass").value = classname
   GetObjectCount = BaseObject.ChildObjects(objectFound).count

End Function


Function GetVisibleObjectCount (BaseObject, classname)
   BaseObject.Init

   Dim objectFound

   set bjectFound = Description.Create()
   objectFound("micclass").value = classname
   objectFound("x").value =0
   GetVisibleObjectCount = BaseObject.ChildObjects(objectFound).count
End Function