QTP设计模式-回调设计模式

'回调设计模式举例:

On Error Resume Next

 

'创建一个类

Class CallBack

 '被调用的对象

 Dim Caller

 

 '回调的动态脚本

 Dim CallBackScript

 

 '类的销毁化

 Sub Class_Terminate()

  Execute CallBackScript

 End Sub

End Class

 

'Test函数

Function Test()

 

 '定义回调变量

 Dim CB

 

 '实例化回调Callback类

 Set CB = New Callback

 

 '加入回调设计代码块

 CB.CallBackScript = "Msgbox ""Function and callback"

 '错误代码

 x = 2/0

 '无法执行到的脚本

 Msgbox "can not running"

 

End Function

 

'调用test函数

Call Test()