请高手帮忙，qtp如何获得对话窗中的文本值，已解决

zwfbj

有dialog提示窗，图片为


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


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

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

chpwu470

当然是错误的...Set 后面加的是对象哦  你set一个属性的当然不对啦 去掉set就OK了 如果你后面那一大堆写的对的话 哈哈

zwfbj

请教怎么写呢？

chpwu470

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

nbkhic

是JS，文本框的内容是static属性。你必须获取这个static。

zwfbj

谢谢各位，搞定，
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)