'函数指针模式举例:
'函数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"))