在QTP中如何使用Class（类）

大家知道VB是面向对象的，其中Class（类）是一个“模板”，对象是由它而创建的。类中的代码描述了从该类创建的对象的特性 (attribute) 和行为。
7t6t nc |%n0虽然Class（类）不是对象，但是它的确有定义其特性 (attribute) 的设计时属性 (property) 和定义其行为的事件。51Testing软件测试网ZO.dC-` }+d5^3k
类里的数据，是相对于类实例（也就是，由类创建的每一对象）而独立存在的。
x pi3HA0c?Y^ Hfxz0也就是说，它存在于程序的存活期中；而类实例中的数据只存在于对象的存活期，它随对象的创建而创建，随对象的撤消而消失。
2pF^Bp!\et;s+J0在编程的时候使用Class正是符合了OO（面向对象封装）的编程原则，我们在使用QTP进行自动化测试编程的时候也要时刻牢记这一原则，进行脚本设计。
0z dpL0`+\}n#i0然而，如何在QTP中使用Class呢，以下是本人写的一个在QTP中使用Class的例子，大家直接把它粘贴到QTP的Expert View中就能看到效果了：）
Jxdtq%?2J0
4ig}F i051Testing软件测试网{lG(k-[2X
'****************************************************************
%Z%i0U!EJ0Call Test
b[SM{{0
_V
^g-`hw&I1j#E0Class Tester51Testing软件测试网nL'[&Jwi4{-W&i*@

*RuY4^|r0        Dim mvarTesterName,mvarAge,mvarGender       51Testing软件测试网pk7zk:U!]^9Y
       51Testing软件测试网:Y*f+m4\,n:e7K
        Sub Class_Initialize   '构造函数51Testing软件测试网6U[.uw B
               MsgBox  "接下来，大家欢迎新同事的到来！"51Testing软件测试网S1@5nC*I
k~
        End Sub
Z oH'Yh)L|:W8}[0       
R5Q*u(c+Lrxe0        Sub Class_Terminate  '析构函数
B?x/Rx v8U,h0                If mvarGender Then51Testing软件测试网S+}(NW wcXNN
                    MsgBox "很遗憾，" & mvarTesterName & "先生脱离了测试行业！"
/y^n0xf2q1E0                Else
Y5N W0Xh _?k0                    MsgBox "很遗憾，" & mvarTesterName & "女士脱离了测试行业！"51Testing软件测试网2c {0y P"A#q
                End If
$xW;E.{Gn0        End Sub
}\c_Px }2_0
$N0r$N;H*ox8X xJ0        Sub Test(ByVal ProjectName)51Testing软件测试网NhqY0Xh#A
                MsgBox mvarTesterName & "正在加班加点的测试" & ProjectName & "呢!"51Testing软件测试网 ~P1G:p?l
        End Sub51Testing软件测试网Uo&qiz%D
       
m{3^Yz,Zk0        Sub Eat(ByVal food)51Testing软件测试网:Ge,\/Z9hC
                MsgBox mvarTesterName & "正在吃" & food & "呢，好爽啊！"
o4RX?7? Um0        End Sub
D.?;jh/P"{0       51Testing软件测试网_-V$@8Q#a4m0mZ9o1m
        Property Let Gender(ByVal vData)
5]*qJ}ms!O~@0            mvarGender = vData            51Testing软件测试网 {&}Fj
V/~ ZA%E
        End Property
Oh3R8k^&KbB0       
O4bM;i`,za4[0        Property Get Gender()
O%g3D4X3["UMr\5O0            Gender = mvarGender51Testing软件测试网r;t"_iX.cwO8b }2g
        End Property
&WWX5@0X
Z8|0       
F G rg1CT;w/z J0        Property Let Age(ByVal vData)
u:|$A|$t"Z0            mvarAge = vData51Testing软件测试网&kv)D8| L
        End Property
OByN f8n^|0       
^5Y)`J2U:VJc0        Property Get Age()51Testing软件测试网$IVsDm;@,\[$c
            Age = mvarAge
6i GB"Z!p*Whxh0        End Property51Testing软件测试网[&e)vXi x5q
A`
       51Testing软件测试网Kq y-BT;V%k&y@P
i0@
        Property Let TesterName(ByVal vData)
q$`0T~0IP0a0            mvarTesterName = vData51Testing软件测试网*v$QdStHz
        End Property51Testing软件测试网H5hfK0Cn]
       51Testing软件测试网'ZO6nP x tdGFl
        Property Get TesterName()
/T(DF5nDyc?0            TesterName = mvarTesterName
rfR._\g0        End Property
6L0n5MKw:P0   
*K(L*|(r ui_1P+CP0End Class51Testing软件测试网
FNu \!q-Uh1wZ+A

$h/S ~ ott!D0
&},e;[/a9]+Y_0
eq#h6\LI$l$i0Sub Test()51Testing软件测试网YBk3P.K
        Set sb = New Tester  '创建一个对象，对象名叫somebody，它是由Tester创建出来的
!E|'@D&K0        sb.TesterName = "songfun"51Testing软件测试网 GaUn)JX
        sb.Age = 2951Testing软件测试网.]8[Sd6th:q
        sb.Gender = True51Testing软件测试网LJPKBvk p
        sb.Eat "HagenDaz"
U c3mk R5o!v0        sb.Test "手机"
}kf6{f_~0        If sb.Gender Then
{_V4|R'qr0                MsgBox sb.TesterName & "先生年方" & sb.Age51Testing软件测试网 M4nrL:dUa(t*[
   Else
fLE9|*t"kL.r5q4Q$T0                MsgBox sb.TesterName & "女士芳龄" & sb.Age
w\%b4Ijc{ a-h0        End If51Testing软件测试网L/^-k6dZe}
        Set sb = Nothing51Testing软件测试网A)~UR`
iz+N;]
End Sub
d;v}sVm_"v7c0'****************************************************************