51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2956|回复: 12
打印 上一主题 下一主题

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

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 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
执行完后,复选框一个都没有被选中!!!!!是怎么回事呀!!!!谢谢!!!
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2007-9-17 21:20:55 | 只看该作者
有没有找到WebCheckbox啊?!
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 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的值可具体情况设,或者换成其它可标识对象的属性
回复 支持 反对

使用道具 举报

该用户从未签到

4#
发表于 2007-9-17 23:52:24 | 只看该作者

可能是由于这个原因吧

由于Frame("MainFrame_39").Frame("MainFrame_40").等对象找不到了
回复 支持 反对

使用道具 举报

该用户从未签到

5#
 楼主| 发表于 2007-9-18 13:31:08 | 只看该作者
情况是楼上所说的样子!!!我该怎么解决这个问题???
回复 支持 反对

使用道具 举报

该用户从未签到

6#
发表于 2007-9-18 13:41:17 | 只看该作者
我在3楼写的方法也不行?还是说被楼主无视了。。。
回复 支持 反对

使用道具 举报

该用户从未签到

7#
 楼主| 发表于 2007-9-18 20:26:33 | 只看该作者
对不起呀!不是无视了!!是不行!!!还是找不到!!
回复 支持 反对

使用道具 举报

该用户从未签到

8#
发表于 2007-9-18 20:31:19 | 只看该作者
你把错误提示截图发上看看来吧,不然也不知道要修改哪里
回复 支持 反对

使用道具 举报

该用户从未签到

9#
 楼主| 发表于 2007-9-18 20:43:47 | 只看该作者
能不能加你QQ呢????
回复 支持 反对

使用道具 举报

该用户从未签到

10#
 楼主| 发表于 2007-9-18 21:00:07 | 只看该作者
错误是这样的

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?(注-册)加入51Testing

x
回复 支持 反对

使用道具 举报

该用户从未签到

11#
发表于 2007-9-18 21:01:54 | 只看该作者
发了短消息,LZ查收下吧
回复 支持 反对

使用道具 举报

该用户从未签到

12#
发表于 2007-9-18 22:07:17 | 只看该作者
呵呵~原来是小粗心惹的麻烦~
objDesc("micclass").Value = "WebCheckbox"
这句中的WebCheckbox b改为大写就可以了~
回复 支持 反对

使用道具 举报

该用户从未签到

13#
 楼主| 发表于 2007-9-19 18:23:59 | 只看该作者
问题解决了!!谢谢大家!尤其谢谢楼上!
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-23 01:30 , Processed in 0.074973 second(s), 28 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表