在QTP中如何使用Class（类）
大家知道VB是面向对象的，其中Class（类）是一个“模板”，对象是由它而创建的。类中的代码描述了从该类创建的对象的特性 (attribute) 和行为。虽然Class（类）不是对象，但是它的确有定义其特性 (attribute) 的设计时属性 (property) 和定义其行为的事件。
类里的数据，是相对于类实例（也就是，由类创建的每一对象）而独立存在的。
也就是说，它存在于程序的存活期中；而类实例中的数据只存在于对象的存活期，它随对象的创建而创建，随对象的撤消而消失。
在编程的时候使用Class正是符合了OO（面向对象封装）的编程原则，我们在使用QTP进行自动化测试编程的时候也要时刻牢记这一原则，进行脚本设计。
然而，如何在QTP中使用Class呢，以下是本人写的一个在QTP中使用Class的例子，大家直接把它粘贴到QTP的Expert View中就能看到效果了：）
'****************************************************************
Call Test
Class Tester
Dim mvarTesterName,mvarAge,mvarGender
Sub Class_Initialize '构造函数
MsgBox"接下来，大家欢迎新同事的到来！"
End Sub
Sub Class_Terminate'析构函数
If mvarGender Then
MsgBox "很遗憾，" & mvarTesterName & "先生脱离了测试行业！"
Else
MsgBox "很遗憾，" & mvarTesterName & "女士脱离了测试行业！"
End If
End Sub
Sub Test(ByVal ProjectName)
MsgBox mvarTesterName & "正在加班加点的测试" & ProjectName & "呢!"
End Sub
Sub Eat(ByVal food)
MsgBox mvarTesterName & "正在吃" & food & "呢，好爽啊！"
End Sub
Property Let Gender(ByVal vData)
mvarGender = vData
End Property
Property Get Gender()
Gender = mvarGender
End Property
Property Let Age(ByVal vData)
mvarAge = vData
End Property
Property Get Age()
Age = mvarAge
End Property
Property Let TesterName(ByVal vData)
mvarTesterName = vData
End Property
Property Get TesterName()
TesterName = mvarTesterName
End Property
End Class
Sub Test()
Set sb = New Tester'创建一个对象，对象名叫somebody，它是由Tester创建出来的
sb.TesterName = "songfun"
sb.Age = 29
sb.Gender = True
sb.Eat "HagenDaz"
sb.Test "手机"
If sb.Gender Then
MsgBox sb.TesterName & "先生年方" & sb.Age
Else
MsgBox sb.TesterName & "女士芳龄" & sb.Age
End If
Set sb = Nothing
End Sub
'****************************************************************
[ 本帖最后由 songfun 于 2007-8-5 00:51 编辑 ] 不错，没有想到 VB 还有这么强的威力。周一上班时一定要好好实验一下 越来越深入了,关键是感觉你思想越来越宽广了.有点深邃的味道了．呵呵！ 能否介绍一下在实际运用中的例子? 学过面向对象的人都会知道这种好处是显而易见的，我们可以封装很多咚咚到一个类里面，比如我们要操作数据库，每次都要写一段的代码去处理它，而针对数据库里的记录，又要有一段类似的代码去处理它，最后还要自己写代码断开连接，释放资源。一系列操作显得非常繁琐，如果我们把它封装到class里，那么借由它的构造函数、析构函数，以及配套的属性方法进行操作就会非常的方便了。。。
具体的例子我下次会再贴上一篇《在QTP中如何使用Class》续集sdlkfj6 8错8错的，面向对象方法还是很强的.. 宋老大说的封装思想在数据库中体现就是存储过程了
这就是 OO 特点复用性。
回复 #5 songfun 的帖子
期待续集。。。呵呵songfun老师怎么编程这么厉害的，学了多久了啊？
哎。。。。。。程序牛差的我羡慕。sdlkfj8 不错。构造和析构函数不能带参数，property set and get需要变量名称类型一致，并且不能尽兴递归或者在function中声明。可以和function一样写在表达式的右侧。
类中可以声明sub和function两种类型。。。。
vb要是复杂起来真的还不如不用。。。。用它就是因为他简单。。简单就不够灵活。。。灵活了就比较复杂。。。看你怎么用了。。不过vb用class感觉除非很必要的情况。 恩，不错，发现新大陆了，呵呵 “类里的数据，是相对于类实例（也就是，由类创建的每一对象）而独立存在的。也就是说，它存在于程序的存活期中”－－这句话不太理解，上面的例子是否体现？ 看到效果了
很期待看到在QTP中的实际应用sdlkfj2 试过了很好玩sdlkfj5 是很有意思，但是还是不清楚具体怎么用 我总感觉qtp的代码复用功能不好用!
例如:songfun 的这个类!
如果我想在其它测试项目中将这个类进行继承呢?好象使用引用源代码,不用用组建方式!
在说VBS没有抽象类功能,无法对一些无法预先知道的类功能进行扩展!
测试工程在设计初期不好使用UML进行建摸,导致测试成本增加!
大家同样我的意见吗? 深奥，真需要好好学习编程 努力!!!!
果然是强人
原来……！嗯！果然是锋哥！继续努力。sdlkfj2
我说我继续努力！！！！ 这位兄弟一定没有了解过QTP的function library sdlkfj5
你想要实现的东西对QTP来说轻而易举——就看你怎么使用了：）
原帖由 kingdees 于 2007-8-10 14:02 发表 http://bbs.51testing.com/images/common/back.gif
我总感觉qtp的代码复用功能不好用!
例如:songfun 的这个类!
如果我想在其它测试项目中将这个类进行继承呢?好象使用引用源代码,不用用组建方式!
在说VBS没有抽象类功能,无法对一些无法预先知道的类功能进行 ... 我公司有个人用了5年QTP,他和我讨论过,的确QTP的function librar可以做到代码重用!也可以轻而实现!
但是重用效果不理想, 无法实现在类被继承了N次后不修最原始代码实现需要的新功能!
他的做法是从如果新的测试需求就将代码COPY一份,然后修改!(我指的是测试框架!不是具体实现)
写出好的测试框架在易用性,高度扩展性,高度重用性有很高的要求,我公司的产品特别庞大,涉及的面很广!每次测试时需要大量的人力去修改测试代码,最后总发现原来设计的测试框架扩张性差,导致成本增加!
不是只要可以实现就行了!有谁有这方面的经历吗?
[ 本帖最后由 kingdees 于 2007-8-12 14:29 编辑 ]
