标题: 如何获取页面中所有可用的checkbox？？ [打印本页] 作者: dengyi78 时间: 2008-1-21 17:17 标题: 如何获取页面中所有可用的checkbox？？ 如图中所示，其中的checkbox的可勾选会根据设置不同而不同
有可能是有3个checkbox可以被勾选其它的置灰，有可能是所有的checkbox都可以被勾选。
请问高手如何判断当前页面上所有可被勾选的checkbox并将其勾选呢？？？作者: jinsen 时间: 2008-1-21 18:09
Dim oDesc, tempObj '定义变量
set oDesc = Description.Create() '创建描述对象
oDesc("micclass").value = "WebCheckBox" '描述对象的类型为"WebCheckBox"
'把画面上所有的"WebCheckBox"控件筛选出来
set tempObj = Browser("xxx").Page("xxx").Frame("xxx").ChildObjects(oDesc)
if tempObj.count > 0 then '画面上是否存在"WebCheckBox"控件
For i = 0 to tempObj.count - 1 '循环
'对象是否可用并且没有被打勾
if tempObj(i).GetROProperty("disabled") = 0 and tempObj(i).GetROProperty("checked") = 0 then
tempObj(i).set On '对象打勾
End if
Next
End if
