QTP对HTML Input对象单击操作的函数

 
QTP对HTML Input对象单击操作的函数

 作者: aken   来源: Testage测试时代

Sub HTMLInputObjectClick(objObject,strObjType)
    Dim objWeb
    Dim i,intNums

    Set objWeb=Description.Create
    objWeb("html tag").Value="INPUT"
    objWeb("type").Value=strObjType

    Set objChild = objObject.ChildObjects(objWeb)
    intNums=objChild.Count

    For i = 0 to intNums - 1
        objChild(i).Click
    Next

End Sub