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

 

relevantcodes.com的《QTP: Retrieve The Count of Objects in a Browser Efficiently》这篇文章介绍了如何封装一个类来快速获取到某个页面中指定类型的对象的个数：

http://relevantcodes.com/qtp-quickly-retrieve-object-count/

 

封装的类如下所示：

Class clsClassCount

 

    Public CountType

 

    '—————————————————————————————————————————————

    ' Name: Function GetClassCount (Public)

    '

    ' Purpose:

    '

    ' Input:

    '     BaseObject- Object containing the ClassName objects

    '     ClassName- MicClass for which the count is being retrieved for

    '

    ' Output:

    '     Integer

    '

    ' Author: Anshoo Arora

    '

    '—————————————————————————————————————————————

    Public Function GetClassCount( BaseObject, ClassName ) ' As Integer

    '—————————————————————————————————————————————

        BaseObject.Init

        If Not BaseObject.Exist( 0 ) Then

            Reporter.ReportEvent micWarning, "GetClassCount", "BaseObject was not found."

            GetClassCount = -1

            Exit Function

        End If

 

        Dim oDesc, intCount

 

        intCount = 0

 

        Set oDesc = Description.Create

        oDesc( "micclass" ).Value = ClassName

 

        intCount = BaseObject.ChildObjects( oDesc ).Count

 

        If Not CountType = "ALL" Then

            oDesc( "x" ).Value = 0

            intCount = intCount - BaseObject.ChildObjects( oDesc ).Count

        End If

 

        GetClassCount = intCount

    End Function

 

End Class

 

Public refClassCount: Set refClassCount = New clsClassCount

 

'—————————————————————————————————————————————

' Name: Function GetObjectCount (Public)

'

' Purpose: Retrieve object count (visible + hidden)

'

' Input:

'     BaseObject- Object containing the ClassName objects

'     ClassName- MicClass for which the count is being retrieved for

'

' Output:

'     Integer

'—————————————————————————————————————————————

Public Function GetObjectCount( BaseObject, ClassName ) ' As Integer

'—————————————————————————————————————————————

    refClassCount.CountType = "ALL"

    GetObjectCount = refClassCount.GetClassCount( BaseObject, ClassName )

End Function

 

'—————————————————————————————————————————————

' Name: Function GetVisibleObjectCount (Public)

'

' Purpose: Retrieve visible objects count

'

' Input:

'     BaseObject- Object containing the ClassName objects

'     ClassName- MicClass for which the count is being retrieved for

'

' Output:

'     Integer

'—————————————————————————————————————————————

Public Function GetVisibleObjectCount( BaseObject, ClassName ) ' As Integer

'—————————————————————————————————————————————

    refClassCount.CountType = ""

    GetVisibleObjectCount = refClassCount.GetClassCount( BaseObject, ClassName )

End Function

 

 

支持获取所有对象的个数以及可见对象的个数：

GetObjectCount: Retrieves the total count of objects on the webpage. This includes hidden + non-hidden objects.

GetVisibleObjectCount: This retrieves the number of non-hidden objects on the webpage.

 

 

使用的例子如下所示：

'This is where the objects are being searched for:

Set BaseObject = Browser("title:=.*实用性测试.*").Page("micclass:=Page")

 

Print BaseObject.Exist

 

' Retrieve the total number of Link Objects

MsgBox GetObjectCount( BaseObject, "Link" )

 

' Retrieve the total non-hidden number of Link Objects

MsgBox GetVisibleObjectCount( BaseObject, "Link" )