关于RegisterUserFunc的疑惑.

winfood

这个函数提供的是类似面向对象里面重载(Override)的功能。

1. 
   
2. Function MySet (obj, x)
   
3.        dim y
   
4.        y = obj.GetROProperty("value")
   
5.        Reporter.ReportEvent micDone, "previous value", y
   
6.        MySet=obj.Set(x)
   
7. End Function
   

复制代码

定义了一个用户自定义的函数MySet，当该函数被调用时对象obj的原有value属性值被输出到Report中，然后才被赋予新的属性值。

1. 
   
2. RegisterUserFunc "WebEdit", "Set", "MySet"
   

复制代码

向QTP声明，从现在开始WebEdit对象类型的Set方法将由用户自定义的MySet方法替代。

1. 
   
2. Browser("MercuryTours").Page("FindFlights").WebEdit("Country").Set "Canada"
   

复制代码

调用WebEdit("Country")对象的Set方法时，其实是在调用MySet方法(被Override)了。

1. 
   
2. UnRegisterUserFunc "WebEdit", "Set"
   

复制代码

注销前面的Override，恢复WebEdit对象类型原有的Set方法。