QTP中實現函數的重載

大家都知道，在vbs中沒有提供函數重載的功能，在很大程度上造成了開發腳本的不方便，其實在QTP中是可以將方法進行重載的，在QTP幫助里有很詳細的說明

其實無非就是兩個方法：

1、RegisterUserFunc

原型：

RegisterUserFunc TOClass, MethodName, FunctionName, SetAsDefault

TOClass：測試對象

MethodName：需要被重載的方法

FunctionName：封裝的函數名

SetAsDefault：是否作為測試對象的標準方法

2、UnRegisterUserFunc

原型：

UnRegisterUserFunc TOClass, MethodName

TOClass：測試對象

MethodName：需要被重載的方法

實例：

對于一個WebEdit的Set方法進行封裝并重載

Browser(xx).Page(xx).WebEdit(xx).Set "xxxx"

希望在給這個WebEdit賦值前記錄下之前的值，可以使用如下代碼

Function MySet (obj, newvalue)
    'obj:測試對象
    'newvalue：賦的新值
       dim oldvalue
       ōldvalue = obj.GetROProperty("value")
       Reporter.ReportEvent micDone, "previous value", oldvalue
       MySet=obj.Set(newvalue)
End Function

然后使用RegisterUserFunc和UnRegisterUserFunc方法：

RegisterUserFunc "WebEdit" , "Set" , "MySet" , False

Browser(xx).Page(xx).WebEdit(xx).Set "xxxx"

UnRegisterUserFunc "WebEdit" , "Set"

或者直接調用

MySet Browser(xx).Page(xx).WebEdit(xx) , "xxxx"

此時，MySet函數實際上是重載了Set方法，并增加了輸入舊值的功能

大家可以根據自己的需要來重載QTP的標準方法，在實際運用中有不小的作用

比如：記錄下初始值，便于測試后清理環境等

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