在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

原文轉自：http://www.anti-gravitydesign.com