复选框的问题!!!!!!请大家帮忙解决一下!谢谢

jxt · 发表于 2007-9-17 20:40:52

有一个复选框的问题:我知道解决的方法和编辑框类似,可是怎么都没有调试通过!!!!!
我录制原始的脚本如下

'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:55

有没有找到WebCheckbox啊？！

hsjzfling · 发表于 2007-9-17 22:41:55

换成这样子试试看：
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:24

由于Frame("MainFrame_39").Frame("MainFrame_40").等对象找不到了

jxt · 发表于 2007-9-18 13:31:08

情况是楼上所说的样子!!!我该怎么解决这个问题???

hsjzfling · 发表于 2007-9-18 13:41:17

我在3楼写的方法也不行？还是说被楼主无视了。。。

jxt · 发表于 2007-9-18 20:26:33

对不起呀!不是无视了!!是不行!!!还是找不到!!

hsjzfling · 发表于 2007-9-18 20:31:19

你把错误提示截图发上看看来吧，不然也不知道要修改哪里

jxt · 发表于 2007-9-18 20:43:47

能不能加你QQ呢????

jxt · 发表于 2007-9-18 21:00:07

错误是这样的

hsjzfling · 发表于 2007-9-18 21:01:54

发了短消息，LZ查收下吧

hsjzfling · 发表于 2007-9-18 22:07:17

呵呵～原来是小粗心惹的麻烦～
objDesc("micclass").Value = "WebCheckbox"
这句中的WebCheckbox b改为大写就可以了～

jxt · 发表于 2007-9-19 18:23:59

问题解决了!!谢谢大家!尤其谢谢楼上!

		自动登录	找回密码
密码			(注-册)加入51Testing

[求助] 复选框的问题!!!!!!请大家帮忙解决一下!谢谢

相关帖子

可能是由于这个原因吧

本帖子中包含更多资源

站长推荐 /1