【QTP】设计模式之回调模式-回调其他内容

摘抄至《QTP自动化测试领航》,感觉关于设计模式写的很有独到之处,大家有什么理解或想法,尽情留言。


'创建一个类
Class CallBack
    '被调用的对象
    Dim Caller

    '回调的动态脚本
    Dim CallBackScript

    '类的销毁化
    Sub Class_Terminate()
        Execute CallBackScript
    End Sub
End Class

'定义回调变量
Dim CB

'实例化CallBack类
Set CB = New CallBack

'定义动态回调过程
CB.CallBackScript = "Call msg()"

'msg函数
Function msg
    msgbox "CallBack scripting"
End Function

'脚本执行完毕
msgbox "Script end"

分析:
这里使用了Execute直接把代码块进行了参数化,这样就只需要使用一个CallBack类即可,如果我们在脚本最后执行使用了哪个函数,只需要给回调类的CallBackScript属性赋值想要执行的代码行即可。当你一旦使用了此设计模式,就会喜欢上它。

发表评论

电子邮件地址不会被公开。

此站点使用Akismet来减少垃圾评论。了解我们如何处理您的评论数据