QTP取值的问题 急！！谢谢

杀手太冷

如下脚本：

Dim A
A = Array("FFT 2D","IFFT 2D","Reset","Rotate 90","Rotate -90","Rotate 180")

b = A(Int(6* Rnd))

Dialog("UITest").Dialog("Dialog").WinButton(b).Click
'Dialog("UITest").Dialog("Dialog").WinButton("IFFT 2D").Click
'Dialog("UITest").Dialog("Dialog").WinButton("Reset").Click
'Dialog("UITest").Dialog("Dialog").WinButton("Rotate 90").Click
'Dialog("UITest").Dialog("Dialog").WinButton("Rotate -90").Click
'Dialog("UITest").Dialog("Dialog").WinButton("Rotate 180").Click




其中注释掉的是录制时候的原脚本

现在我想的是随机点击这些按钮，所以就把这些按钮的名称装在一个数组里，采用一个随机函数生成[0，6)之间的数，通过这个随机函数去随机点一个按钮但是却报错

比如取值是：“FFT2D”,却提示找不到该对象的

那位高手帮忙下呢~~谢谢

manhong

改成：Dialog("UITest").Dialog("Dialog").WinButton("name:=b").Click

杀手太冷

原帖由 manhong 于 2009-3-6 10:22 发表
改成：Dialog("UITest").Dialog("Dialog").WinButton("name:=b").Click

谢谢  还不是不行的也

manhong

不好意思，刚才说错了 b是变量。。
用spy看一下winbutton的属性。。。
试试Dialog("UITest").Dialog("Dialog").WinButton("text:="&b,"class name:=winbutton").Click

杀手太冷

呵呵  就是应该的分开的

杀手太冷

还有一个问题的，如何保证每次取的随机值都不一样呢~~~只有做判断吗？

manhong

既然是随机取到的一定有重复的。。你要想不让它重复就不要用随机呗。
你的需求是要把这几个按钮依次点一遍吗？

杀手太冷

是随机点哈 最好不重复的 ~~~谢谢

manhong

保存每次取到的值，然后取新值时加个判断，if等于前面保存的值就不取，然后重新随机，直到取到新值。。。
用个嵌套循环就行了。。应该能实现。