QTP中实现函数的重载

大家都知道，在vbs中没有提供函数重载的功能，在很大程度上造成了开发脚本的不方便，其实在QTP中是可以将方法进行重载的，在QTP帮助里有很详细的说明

~Z&[/IRF&D0其实无非就是两个方法：

TLYvN^3i6O^01、RegisterUserFunc51Testing软件测试网d+g9ww,U

&Xh1eZ3t1G!aG0原型：

RegisterUserFuncTOClass, MethodName, FunctionName, SetAsDefault51Testing软件测试网E:g!X7L)om

%xOH}Sv&r0TOClass：测试对象

MethodName：需要被重载的方法51Testing软件测试网!KH9Mm(l]@.^|N[

FunctionName：封装的函数名51Testing软件测试网
r;f#VbfBK

[ u.{$US(G0SetAsDefault：是否作为测试对象的标准方法51Testing软件测试网&J8u/Q&O%Xk'qTI7AQ

jdlGFt7ZI02、UnRegisterUserFunc

原型：

UnRegisterUserFuncTOClass, MethodName

W f w&]0[ E2l'YK0TOClass：测试对象51Testing软件测试网E2w$T7Ct1~M"I

'V%t+Pb"s0MethodName：需要被重载的方法

实例：51Testing软件测试网Td(}+L.S?LY

对于一个WebEdit的Set方法进行封装并重载

Browser(xx).Page(xx).WebEdit(xx).Set "xxxx"51Testing软件测试网}a&bl
wq

希望在给这个WebEdit赋值前记录下之前的值，可以使用如下代码

2`a.||"\X l0Function MySet (obj, newvalue)51Testing软件测试网he2X^ w
    'obj:测试对象51Testing软件测试网],j;?^Roj
    'newvalue：赋的新值
#Y^p}!C.MGf s0       dim oldvalue51Testing软件测试网[X.GTN;JM
       ōldvalue = obj.GetROProperty("value")51Testing软件测试网t n
dKBdZ&]Y+Y
       Reporter.ReportEvent micDone, "previous value", oldvalue
J ~!Fk+RR7M-?F0       MySet=obj.Set(newvalue)51Testing软件测试网cq`;u/r8U4`
End Function51Testing软件测试网kNdd'`C!X`L&XT]

然后使用RegisterUserFunc和UnRegisterUserFunc方法：51Testing软件测试网:U&s$T%HJ+o%h

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

Browser(xx).Page(xx).WebEdit(xx).Set "xxxx"51Testing软件测试网C6C]:Sq([ b/x3GB

UnRegisterUserFunc "WebEdit" , "Set"51Testing软件测试网9Pz fZWQ6g6rO

或者直接调用

MySetBrowser(xx).Page(xx).WebEdit(xx) , "xxxx"51Testing软件测试网~+{{I4p

此时，MySet函数实际上是重载了Set方法，并增加了输入旧值的功能

大家可以根据自己的需要来重载QTP的标准方法，在实际运用中有不小的作用51Testing软件测试网'L@WK!@O

比如：记录下初始值，便于测试后清理环境等51Testing软件测试网yK$a*S}
vR