51Testing软件测试论坛

标题: 复选框的问题!!!!!!请大家帮忙解决一下!谢谢 [打印本页]

作者: jxt 时间: 2007-9-17 20:40
标题: 复选框的问题!!!!!!请大家帮忙解决一下!谢谢
有一个复选框的问题:我知道解决的方法和编辑框类似,可是怎么都没有调试通过!!!!!
我录制原始的脚本如下

'Browser("XXX").Page("XXX").Frame("MainFrame_39").WebCheckBox("ID___ViewsIncomeManage_UserCon").Set "ON"
'Browser("XXX").Page("XXX").Frame("MainFrame_40").WebCheckBox("ID___ViewsIncomeManage_UserCon").Set "ON"
'Browser("XXX").Page("XXX").Frame("MainFrame_41").WebCheckBox("ID___ViewsIncomeManage_UserCon").Set "ON"
'Browser("XXX").Page("XXX").Frame("MainFrame_42").WebCheckBox("ID___ViewsIncomeManage_UserCon").Set "ON"
'Browser("XXX").Page("XXX").Frame("MainFrame_43").WebCheckBox("ID___ViewsIncomeManage_UserCon").Set "ON"
修改成

Dim objDesc, objWCBs, i, iCount
Set objDesc = Description.Create()
objDesc("micclass").Value = "WebCheckbox"
Set objWCBs = Browser("XXX").Page("XXX").ChildObjects(objDesc)
iCount = objWCBs.Count
For i = 0 To iCount - 1
objWCBs(i).Set "ON"
Next
执行完后,复选框一个都没有被选中!!!!!是怎么回事呀!!!!谢谢!!!

作者: yabest 时间: 2007-9-17 21:20
有没有找到WebCheckbox啊？！

作者: hsjzfling 时间: 2007-9-17 22:41
换成这样子试试看：
Dim objDesc, objFrm, i, iCount
Set objDesc = Description.Create()
objDesc("micclass").Value = "Frame"
Set objFrm = Browser("XXX").Page("XXX").ChildObjects(objDesc)
iCount = objFrm.Count
For i = 0 To iCount - 1
objFrm(i).WebCheckBox("index:=0").Set "ON"
index的值可具体情况设，或者换成其它可标识对象的属性

作者: sinpa 时间: 2007-9-17 23:52
标题: 可能是由于这个原因吧
由于Frame("MainFrame_39").Frame("MainFrame_40").等对象找不到了

作者: jxt 时间: 2007-9-18 13:31
情况是楼上所说的样子!!!我该怎么解决这个问题???

作者: hsjzfling 时间: 2007-9-18 13:41
我在3楼写的方法也不行？还是说被楼主无视了。。。

作者: jxt 时间: 2007-9-18 20:26
对不起呀!不是无视了!!是不行!!!还是找不到!!

作者: hsjzfling 时间: 2007-9-18 20:31
你把错误提示截图发上看看来吧，不然也不知道要修改哪里

作者: jxt 时间: 2007-9-18 20:43
能不能加你QQ呢????

作者: jxt 时间: 2007-9-18 21:00
错误是这样的

作者: hsjzfling 时间: 2007-9-18 21:01
发了短消息，LZ查收下吧

作者: hsjzfling 时间: 2007-9-18 22:07
呵呵～原来是小粗心惹的麻烦～
objDesc("micclass").Value = "WebCheckbox"
这句中的WebCheckbox b改为大写就可以了～

作者: jxt 时间: 2007-9-19 18:23
问题解决了!!谢谢大家!尤其谢谢楼上!

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)