大家都知道，在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)
:Qdq,[L0`,pZD8B0 'obj:測試對象51Testing軟件測試網5t/^o3o:Udu:w6o
'newvalue：賦的新值51Testing軟件測試網fO'z2}*we4x%v
dim oldvalue
_\ A)m;R L9SV&z0 ōldvalue = obj.GetROProperty("value") 51Testing軟件測試網W;j2mbCcm
Reporter.ReportEvent micDone, "previous value", oldvalue
M6y7j*imd0 MySet=obj.Set(newvalue)
&j7b ?9HE0End 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.kjueaiud.com/
