【软件自动化测试-QTP实战技能 18】== QTP-Select multiple check box QTP- 复选框

 

Dim obj_check

Set obj_check=Description.Create

obj_Check("micclass").value = "DelphiCheckBox"

Dim allcheckboxes



Set allcheckboxes=DelphiWindow("NewCell_Selection_Window").ChildObjects(obj_check)

a = allcheckboxes.count()

msgbox a



For i=0to a-1

If varStatus =TrueThen

allcheckboxes(i).set"ON"

EndIf

Next