51Testing软件测试论坛

标题: QTP识别checkbox的问题 [打印本页]

作者: mouseweiwei 时间: 2008-9-1 15:53
标题: QTP识别checkbox的问题
请教,在一个页面中有一组checkbox 他们的 name属性都为 role
现在请教如何使用QTP去定位我具体需要勾选的checkbox呢?
代码
Browser("XXXX").Window("XXXX").Page("修改用户角色").WebCheckBox("role").Set"ON"

红字部分就是 QTP识别的那个checkbox 可是 checkbox的name都是一样的如何去定位到其他的checkbox上呢?

作者: dalinangel 时间: 2008-9-1 17:51
value应该不一样

作者: blueeagle9999 时间: 2008-9-1 22:46
查看一下这一组checkbox有哪个属性是能够唯一被识别的，换个属性去识别看看

作者: fengmingbao 时间: 2008-9-2 08:54
Dim temp_Objec_2, dd

'Using DP to define a object collection: Checkbox
set temp_Objec_2=Description.create()
temp_Objec_2("html tag").value="INPUT"
temp_Objec_2("type").value="checkbox¡°

'Set all check boxes in an Array
set dd = Browser(¡°AA").Page(¡°bb").Frame("rightFrame_2").Childobjects(temp_Objec_2)

'Select the checkbox based the required row number
dd.item(requiredRow -2).set "ON"

你需要根据你们的需求,到底你想选哪个checkbox, 即求 requiredRow . 也可以写一循环,一次性全选上

作者: mouseweiwei 时间: 2008-9-2 14:10
回1楼的他们的value是不同的但我找了喊多贴子自己试了识别不出来请教那句代码该怎么写
那些checkbox的value是 10000 10001 10002...
的

回2楼的 value是不同的那句该如何写呢

作者: mouseweiwei 时间: 2008-9-2 14:16

原帖由 fengmingbao 于 2008-9-2 08:54 发表
Dim temp_Objec_2, dd

'Using DP to define a object collection: Checkbox
set temp_Objec_2=Description.create()
temp_Objec_2("html tag").value="INPUT"
temp_Objec_2("type").value="checkbox¡°
...

这个上面的
把temp_Objec_2 定义成一个 checkbox

'Set all check boxes in an Array
set dd = Browser(?°AA").Page(?°bb").Frame("rightFrame_2").Childobjects(temp_Objec_2)
是如何生成一组checkbox的呢? 这里有点不明白

作者: fengmingbao 时间: 2008-9-2 14:25
标题: 回复 6# 的帖子
你有没有试着运行一下?

Dim temp_Objec_2, dd

'Using DP to define a object collection: Checkbox
set temp_Objec_2=Description.create()
temp_Objec_2("html tag").value="INPUT"
temp_Objec_2("type").value="checkbox¡°

这几句定义了一个对象 temp_Objec_2, 其实它是一个checkbox

set dd = Browser(?°AA").Page(?°bb").Frame("rightFrame_2").Childobjects(temp_Objec_2)

这句话是找出Browser(?°AA").Page(?°bb").Frame("rightFrame_2")里面的所有checkbox

作者: mouseweiwei 时间: 2008-9-2 15:40
感谢楼上的兄弟
我尝试成功了下面只要把 10001那块用参数化写了就能自动找相应的check了

Dim checkbox1
set checkbox1 = Description.Create()

checkbox1("value").Value = "10001"
browser("XXXX").Window("XXXX").Page("XXXX").WebCheckBox(checkbox1).set"ON"
Browser("XXXX").Window("XXX").Page("XXX").WebButton("返回").Click

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