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
oldvalue = obj.GetROProperty("value")
Reporter.ReportEvent micDone, "previous value", oldvalue
MySet=obj.Set(newvalue)
End Function
'obj:测试对象
'newvalue:赋的新值
dim oldvalue
oldvalue = 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的标准方法,在实际运用中有不小的作用
比如:记录下初始值,便于测试后清理环境等。
PS: 使用发现,可以给page, webedit 等添加新方法,但是不能给datatable添加方法,don't know why?