在QTP中如何使用Class（类）

songfun

大家知道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 编辑 ]

54rtwo

学习了，多谢。

blue2010ing

很好，留着参考，本人正在慢慢学习SQL，相信从你这可以学习到很多东西

liran_04

那为什么我在用class时，方法中使用let或get会提示错误呢？

代丛君

努力~~各位。。。

testMA

很好的抛砖引玉的帖子！不错，很发散大家的思维。
真正的把自动化诠释了，它不只是一个工具，更多的是一种开发雏形----思想····
在熟悉它的同时去提高它扩展它，自动化需要你们，+U
适合产品的自动化才是好的自动化，永远不要偏离本质

yunmenzhe

高人到处有啊

余艾奇迪

这个可以回，这个真得回！

warchief09

美文共赏析学习

isabel_liu

有介紹QTP錄制ORcle相關的信息嗎？期待....

暗香世家

很精彩，QTP刚入门，要好好学习：）

阳光下的橙子

感觉类是一个封装的集合呀，不过宋老师，你那个对象居然叫sb..我晕

joanchongzi

好强，被震撼了！

Anna8574

up

moyiyun

面向对象，八错八错，顶顶！

simeng1128

好久没上论坛了。也好久没看到好贴了。留下脚印。

sophiashan07

我公司2010年6月份刚在纳斯达克上市，现在要找一名自动化测试组长,薪酬福利良好；

我们项目组需要招聘自动化测试组组长，职位信息如下：
1.计算机相关专业本科以上学历，熟悉软件工程师学原理；
2.软件测试相关经验3年以上，其中至少包括2年功能自动化测试经验；
3.熟悉QTP工具的使用，了解QTP原理和对象识别机制；
4.熟悉VBScript脚本语言，能进行相关自动化脚本函数的编写；
5.较强的语言表达和文档编写能力及良好的沟通技巧；
6.有金融银行基础业务知识经验、有网银业务经验为佳；
7.有自动化框架编写、设计经验和软件开发经验有团队管理经验为佳；
8.熟悉Java、J2EE 、WebSphere 、Application Serve、DB2、Oracle等为佳
9.有Unix平台的使用经验（AIX/Solaris/HPUX/Linux）为佳；

如果你想了解更多以些，请发邮件留下您的联系方式，欢迎各专业人士来信咨询 谢谢：
shanjing1983@163.com
sophiashan07@hotmail.com

wolaizhinidexin

呵呵，我现在一个三流学校的小专，正打算用类的思想去试着写一个系统的UI自动化脚本

炫彩琉璃

我还是新手进来感受下气氛~大家都好厉害的样子，看样子还得好好学习才行呀

anna03