模板
教程
環境
性能
功能
管理
軟件測試 > 測試技術 > 軟件測試工具 > Mercury軟件測試工具 > QuickTestPro >
QTP自動化測試之VBScript對象(2)
發表于：2012-01-18來源：博客園作者： known點擊數：
標簽：QTP自動化測試
用VBScript創建的對象并不是真正的 面向對象 ，它不能繼承和實現多態，但是在 QTP 對象模型Utility中，提供了一個RegisterUserFunc方法可以覆寫對象的方法，但
用VBScript創建的對象并不是真正的面向對象，它不能繼承和實現多態，但是在QTP對象模型Utility中，提供了一個RegisterUserFunc方法可以覆寫對象的方法，但這也不是真正意義上的面向對象。Class及其成員如何創建，上面已經簡單介紹過，若要對其中的一些語句進一步了解，還需要去仔細閱讀一些參考文檔。下面我們來看看如何調用對象，在《VBScript基礎上》變量賦值中也已經提到過。
?
|
1
2
3
4
|
Dim u '定義對象變量名，注意變量名不能與類名相同，即使是大小寫不同 Set u = New User '創建對象用New語句 u.UserName = "known" '給屬性賦值 MsgBox u.ToString() '調用方法 |
2. Dictionary對象
Dictionary是存儲數據鍵和項目對的對象，其主要屬性有Count、Item、Key，主要方法有Add、Exists、Items、Keys、Remove、RemoveAll。下面是該對象的一個綜合示例：
?
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
'定義并創建Dictionary對象，使用CreateObject創建并返回自動化對象的引用 Dim d Set d = CreateObject("Scripting.Dictionary") '向Dictionary對象中添加鍵值對 d.Add "a", "Known" 'Add方法第一個參數是Key值，第二個是Item值 d.Add "b", "Christina"d.Add "c", "test"d.Add "d", "fuck"Call ShowDictionary(d) '遍歷Dictionary對象，更改Item值 For i = 0 To d.Count - 1 'Count返回Dictionary對象中的項目數 If d.Exists("c") Then 'Exists判斷Dictionary對象中是否存在指定關鍵字 d.Item("c") = "Test" 'Item返回Dictionary對象中指定Key的Item值 End IfNextd.Remove("d") 'Remove從Dictionary對象中刪除一個關鍵字，項目對。 Call ShowDictionary(d) '輸出Dictionary對象所有鍵值 Sub ShowDictionary(dic) Dim str, a a = dic.Items 'Items返回一個包含所有Item值的數組 For i = 0 To dic.Count - 1 str = str & a(i) & vbCrlf Next MsgBox(str) End Sub |
原文轉自：http://www.anti-gravitydesign.com
