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