軟件測試工具在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.kjueaiud.com/
