软件测试工具QTP中实现函数的重载

　　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的标准方法，在实际运用中有不小的作用

　　比如：记录下初始值，便于测试后清理环境等。

文章来源于领测软件测试网 https://www.ltesting.net/