51Testing软件测试论坛

标题: 请高手帮忙，qtp如何获得对话窗中的文本值，已解决 [打印本页]

作者: zwfbj 时间: 2009-8-27 15:50
标题: 请高手帮忙，qtp如何获得对话窗中的文本值，已解决
有dialog提示窗，图片为
[attach]55782[/attach]

怎么得到“IBO业务添加成功,成交编号为：IBO20090826000008”
我用object spy识别了下，图片为：
[attach]55783[/attach]

Dim temptext
Dim IBONO
checkDialog1=vbTrue
Set staticDescription=Description.Create()
staticDescription("micclass").Value="Static"'提示内容
temptext = Browser("报表信息子系统").Window("报表信息维护 -- 网页对话框").Dialog("Microsoft Internet Explorer").ChildObjects(staticDescription)(1).GetROProperty("text")
IBONO=right(temptext,17)

[ 本帖最后由 zwfbj 于 2009-8-27 16:52 编辑 ]

作者: zwfbj 时间: 2009-8-27 15:55
我写成这个，是错误的：set IBONO=Browser("报表信息子系统").Window("报表信息维护 -- 网页对话框").Dialog("Microsoft Internet Explorer"). Static("IBO业务添加成功,成交编号为：IBO20090826000008").GetROProperty("value")，请高手指点。

作者: chpwu470 时间: 2009-8-27 15:57
标题: 回复 2# 的帖子
当然是错误的...Set 后面加的是对象哦你set一个属性的当然不对啦

去掉set就OK了如果你后面那一大堆写的对的话哈哈

作者: zwfbj 时间: 2009-8-27 16:02
请教怎么写呢？

作者: chpwu470 时间: 2009-8-27 16:13
标题: 回复 4# 的帖子
IBONO=Browser("报表信息子系统").Window("报表信息维护 -- 网页对话框").Dialog("Microsoft Internet Explorer"). Static("IBO业务添加成功,成交编号为：IBO20090826000008").GetROProperty("text")<----是text 不是value 不知道你为什么用value 是你自己主观判断的还是怎么搞出来的啊 IBONO就是你要拿的值了可以print出来看一下哦

作者: nbkhic 时间: 2009-8-27 16:13
是JS，文本框的内容是static属性。你必须获取这个static。

作者: zwfbj 时间: 2009-8-27 16:50
谢谢各位，搞定，
Dim temptext
Dim IBONO
checkDialog1=vbTrue
Set staticDescription=Description.Create()
staticDescription("micclass").Value="Static"'提示内容
temptext = Browser("报表信息子系统").Window("报表信息维护 -- 网页对话框").Dialog("Microsoft Internet Explorer").ChildObjects(staticDescription)(1).GetROProperty("text")
IBONO=right(temptext,17)

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