QTP自学之选择页面上的所有checkbox

上一篇 / 下一篇 2012-02-15 23:37:02 / 个人分类：每学一结

最近学到一个知识点，就是想实现选择页面上的所有checkbox空间，后面求助，大致代码如下：

Browser("micclass:=Browser").Page("micclass:=page")

set CheckBoxDescription = Desciption.Create

checkBoxDescription("value") = "INPUT"

checkBoxDescription("Type") = "checkbox"

set checkboxList = Browser("micclass:=Browser").Page("micclass:=page").childObjects(CheckBoxDescription)

if(checkboxList.count > 0) then

for i = 0 To checkboxList.count-1

CheckBoxList(i).Set "ON"

else

Msgbox "抱歉，您当前页面不存在checkbox"

end if

差不多是这样了

TAG: