Item能否参数化

dengwang

sdlkfj6比如：我的界面中，有10个textbox控件，item名分别是textbox、textbox_2、textbox_3....这样的命名规则。如果我想对这10个textbox验证它们对 “abc” 这个值的通过性。怎么才能做到将 item "textbox" 进行参数化？这样，我只要只录制一个textbox的l输入过程，就行走遍10个textbox控件。

xiaonan

这有两种方法,第一种把这10个textbox的填加到存储库中,再可以使用 "textbox_"& i 的形式来做for循环.还有一种可以直接使用描述性的编程来实现QTP对这10个textbox的识别,再使用"textbox_"& i 的形式来做for循环.第一种方法在面对控件比较少的情况下比较适合的.执行速率也比较快.而面对控件比较多时,请用第二种方法.

dengwang

谢谢版主，我去试试。
呵呵，最开心的事就是有事回贴！

dengwang

有人回贴！太激动了。。。。

xiaonan

呵呵,要是能够帮助到你,我也很开心.

dengwang

For i = 1 To 3 Step 1
SwfWindow("毒品信息管理系统 Online - [案件录入]").SwfWindow("案件录入").SwfEdit("textBox_"& i).Set 12
SwfWindow("毒品信息管理系统 Online - [案件录入]").SwfWindow("案件录入").SwfButton("保存").Click
SwfWindow("毒品信息管理系统 Online - [案件录入]").Dialog("提示信息").WinButton("OK").Click
SwfWindow("毒品信息管理系统 Online - [案件录入]").SwfWindow("案件录入").SwfEdit("textBox_"& i).SetSelection 0,7
SwfWindow("毒品信息管理系统 Online - [案件录入]").SwfWindow("案件录入").SwfEdit("textBox_"& i).Set ""
Next
其中，textBox使用了Data Table。共3项textBox_swfname:textBox_1、textBox_2、textBox_3
可是，运行时还是出错。请教，我这样做错在哪了呢？

xiaonan

你什么错啊?对象库里有这些对象了吗?
参照一下我这段代码:
For i=0  to 99
cname="name"&i
xhmr="xhmr"&i
xcmr="xcmr"&i
mcj="mcj"&i
Browser("管理员[期货外汇-外汇]").Page("管理员[期货外汇-外汇]").WebEdit(cname).Set "131"
Browser("管理员[期货外汇-外汇]").Page("管理员[期货外汇-外汇]").WebEdit(xhmr).Set "-22"
Browser("管理员[期货外汇-外汇]").Page("管理员[期货外汇-外汇]").WebEdit(xcmr).Set "-123"
Browser("管理员[期货外汇-外汇]").Page("管理员[期货外汇-外汇]").WebEdit(mcj).Set "12123"
next

笑游天涯侠

版主，对第二种方法“直接使用描述性的编程来实现QTP对这10个textbox的识别”，能举例说明么？

xiaonan

呵呵,为了满足楼上的要求我这里给出一个例子.本例子就是用QTP自带的fight程序录制.描述性编程就是把对象存储库中对对象描述的一些属性,直接写到脚本代码中.使QTP在识别对象时不在依靠对象存储库.

[ 本帖最后由 xiaonan 于 2006-6-14 11:28 编辑 ]

hepburn

Dim loginwin,child,cText
Set loginwin=description.Create()
loginwin( "regexpwndtitle").value="Form1"
Set child=desktop.ChildObjects (loginwin)
For i=1 to child.count
   child(i-1).close
Next

Window("regexpwndtitle:=工程1").WinListView("nativeclass:=SysListView32").Activate "工程1.exe"
For i=0  to 15
cText="Text1("&i&")"
VbWindow("regexpwndtitle:=Form1").VbEdit("nativeclass:=ThunderRT6TextBox","vbname:="&cText).Set "testing"
'VbWindow("Form1").VbEdit(cText).Set "testing"
next


VbWindow("regexpwndtitle:=Form1").VbEdit("nativeclass:=ThunderRT6TextBox","vbname:="&cText).Set "testing"这一句要怎么修改才正确啊,如果对象存储库有属性则运行VbWindow("Form1").VbEdit(cText).Set "testing"正确.能不能把VbEdit("nativeclass:=ThunderRT6TextBox","vbname:="&cText)分开写呀

5555

看了还是不大明白，不明白这个问题最后是怎么解决的？　希望楼主能把解决方法拿出来分享一下～　让我们这些新手们学习学习