QTP设计模式-函数指针模式

'函数指针模式举例:

'函数tt1

Function tt1

 Msgbox "tt1"

End Function

 

'函数tt2

Function tt2

 Msgbox "tt2"

End Function

 

'建立测试流函数

Function TestFlow(LoadFuncs)

 

 '遍历所有载入的函数名,并利用函数指针进行调用

 For i = 0 To UBound(LoadFuncs) - LBound(LoadFuncs)

 

  '将CallFunc的指针指向动态载入的函数

  Set CallFunc = GetRef(LoadFuncs(i))

 

  '调用指针

  Call CallFunc

 

 Next

End Function

 

'调用测试流

Call TestFlow(Array("tt1","tt2"))

 

posted @ 2012-09-11 09:51  dushuai  阅读(131)  评论(0)  编辑  收藏  举报