51Testing软件测试论坛

标题: QTP有Class类数组或集合吗？ [打印本页]

作者: kennychm 时间: 2013-8-14 09:41
标题: QTP有Class类数组或集合吗？
我创建了一个Class，我想好像.net那样把该类对象添加到集合里。需要的时候再循环。不清楚在QTP应该如何去实现呢！请有经验的老大多多指点。

Class User
      private s_name

      Property Let Name(new_name)
         name= new_name
      End Property

      Property Get name
         name= s_name
      End Property

End Class
for i=1 To 5
Dim user&i
Set user&i=New User
user&i.name="a"&i
如何将user对象放在集合里或数组里
next

然后再遍历这个user对象集合或数组。

作者: joykao 时间: 2013-8-14 10:22
可以自己定义在外部文件里的哇。。。随你怎么放。。比如写在xml文件中excel中都可以

作者: 黑羽祭 时间: 2013-8-14 13:03
回复 1# kennychm

可以的

for i=1 To 5
Execute "Dim user" & i
Execute "Set user" & i & "=New User"
Eval("user" & i).name="a"&i
next

复制代码

作者: kennychm 时间: 2013-8-14 16:02
回复 3# 黑羽祭

我是想将user类对象像.net那样存入到一个集合或数组。然后有需要的时候再遍历出来，而你给出的代码应该达不到我想要的东西

作者: 黑羽祭 时间: 2013-8-14 16:30
回复 4# kennychm

那更简单

Class Test1
Function aaa
print "Test"
End Function
End Class
Dim a(10)
Set a(1) = New Test1
a(1).aaa

复制代码

作者: kennychm 时间: 2013-8-19 16:59
回复 5# 黑羽祭

谢谢大哥你的指点！

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