在QTP中如何使用Class（类）

大家知道VB是面向对象的，其中Class（类）是一个“模板”，对象是由它而创建的。类中的代码描述了从该类创建的对象的特性 (attribute) 和行为。
A.Zdx/j K y2l ?0虽然Class（类）不是对象，但是它的确有定义其特性 (attribute) 的设计时属性 (property) 和定义其行为的事件。51Testing软件测试网-O$zh!eab
类里的数据，是相对于类实例（也就是，由类创建的每一对象）而独立存在的。
[t P[n;l0也就是说，它存在于程序的存活期中；而类实例中的数据只存在于对象的存活期，它随对象的创建而创建，随对象的撤消而消失。51Testing软件测试网&] ET|z#[y
在编程的时候使用Class正是符合了OO（面向对象封装）的编程原则，我们在使用QTP进行自动化测试编程的时候也要时刻牢记这一原则，进行脚本设计。
-rg_m3cvN0然而，如何在QTP中使用Class呢，以下是本人写的一个在QTP中使用Class的例子，大家直接把它粘贴到QTP的Expert View中就能看到效果了：）
;^7e+f U6t6C.bp051Testing软件测试网~ t.I \2DU
51Testing软件测试网_C*M,a][-uh
'****************************************************************
j9S$V7b7V#z(M'U-`]'y0Call Test
$SK]kc9^%`csc051Testing软件测试网.xx:[8Q*_;v9Y$I
Class Tester
$Gl+fq][0
-_*L_kx @Ek ]0        Dim mvarTesterName,mvarAge,mvarGender       51Testing软件测试网nw9pa6[&jqu
       51Testing软件测试网 giMV.S;Pi
        Sub Class_Initialize   '构造函数
;aRu;R {.KgDg
Q0               MsgBox  "接下来，大家欢迎新同事的到来！"51Testing软件测试网?*oHrQs5o K`9m
        End Sub
g@3mr'UMYl0       
*} ^/\I;G7~0        Sub Class_Terminate  '析构函数51Testing软件测试网~Nx#~:t
                If mvarGender Then51Testing软件测试网+aa2Y4}H1^
                    MsgBox "很遗憾，" & mvarTesterName & "先生脱离了测试行业！"
l$}8H'e"a0                Else
U*D*TNz^@v.?X0                    MsgBox "很遗憾，" & mvarTesterName & "女士脱离了测试行业！"
9Eork` K;w0                End If51Testing软件测试网*~j4WmklY.DD
        End Sub51Testing软件测试网6x*]#d3Tx
51Testing软件测试网:g;c}.}!K.w8V V
        Sub Test(ByVal ProjectName)
,Z2Y__.v;N?.s#q0                MsgBox mvarTesterName & "正在加班加点的测试" & ProjectName & "呢!"51Testing软件测试网[4mJ3SV
        End Sub
]P e(E,F1x%]0       
4?9E-k2{)JcS0        Sub Eat(ByVal food)
;j`X0} \FfP0                MsgBox mvarTesterName & "正在吃" & food & "呢，好爽啊！"51Testing软件测试网w3m;lo/f*e Y0SR
        End Sub
,s.T,s5hWTE4@ cW d0       
X6fU E?c H0l yY5Z0        Property Let Gender(ByVal vData)
hZ2o V`6@0RwC0            mvarGender = vData            
0?6r5T;ESO+JZ0        End Property
$In;z g{,\-`%|3M0       
tU@4XuSv X0        Property Get Gender()51Testing软件测试网bp1xF/H5d0a
            Gender = mvarGender
Fo8Zo gAK0        End Property51Testing软件测试网-B:lJ1K7X*| B!F o#v
       
P'}i)v~c0        Property Let Age(ByVal vData)51Testing软件测试网SZ
N"y ^x
            mvarAge = vData51Testing软件测试网 n u#\-qCMw1K
        End Property
+g1GN8^'R6O4X0       
O)ZK%L3R7L*UYr/QRwy0        Property Get Age()
6m ??%y;f;I7xp.q,r0            Age = mvarAge51Testing软件测试网SP%`IL1bk-Vz6Y/\
        End Property51Testing软件测试网 f0cT;OI,W!b7ljgw
       51Testing软件测试网(V&N9}S6P5q2]
T
        Property Let TesterName(ByVal vData)
3ka{1I)cf+p0g1W
?'r0            mvarTesterName = vData51Testing软件测试网w
u$nx%H`|$NE
        End Property
TSK#IK.Yo(r0       
9Z*Y,T3p(].M
W0        Property Get TesterName()
;p1vshB`*[c%W0            TesterName = mvarTesterName51Testing软件测试网"fg&\+k*o8d9V
        End Property51Testing软件测试网M*G/uS/t4sgz
   51Testing软件测试网s-EdA#k4V
End Class
I Q,Q%|@2R b)X0
!zhPkl;Up051Testing软件测试网wLN?;Ke$_k
51Testing软件测试网Fe1rt1d4] \w;L
Sub Test()51Testing软件测试网GokOs^ k3~ P
        Set sb = New Tester  '创建一个对象，对象名叫somebody，它是由Tester创建出来的
&F-T-zp;?(Od0        sb.TesterName = "songfun"
a1w$rbV%AE&t2l0        sb.Age = 29
.Lkp)`1N q0        sb.Gender = True
1v-b,N px9i4U'A0        sb.Eat "HagenDaz"
7T/D-L!N4\G#N:S^z0        sb.Test "手机"
$umS,u3E0x[I0        If sb.Gender Then
3C-pGR
e G)e(Z0                MsgBox sb.TesterName & "先生年方" & sb.Age51Testing软件测试网;t@;_:ChEh)AR#J
   Else
|T;|Bj L)O?4N0                MsgBox sb.TesterName & "女士芳龄" & sb.Age
c+y/t
B0Hai0        End If
8DW.kmEC8u[j'U0        Set sb = Nothing51Testing软件测试网7kl'G"~3H2tD\
End Sub
ZP/^#|
i0'****************************************************************