把页面中所有WebCheckBox都勾选上
上一篇 /
下一篇 2012-06-27 15:48:01
/ 个人分类：QTP测试
录制不到WebTable不等于识别不出WebTable，可以在对象库中自己添加进去
或者用描述性编程在脚本中直接描述出来
下面是一个使用DP的例子（把页面中所有WebCheckBox都勾选上）：
Dim oWebChkDesc
Set WebChkDesc = Description.Create
oWebChkDesc("micclass").value = "WebCheckBox"
oWebChkDesc("html tag").Value = "INPUT"
' 获取所有匹配描述的对象
Dim allCheck, oCheckBox
Set allCheck = Browser("Web Tours").Page("Web Tours").ChildObjects(oWebChkDesc)
For i = 0 to allCheck.Count - 1
Set CheckBox = allCheck(i)
oCheckBox.Set "ON"
Next |
收藏
举报
TAG:
