摘要:
'类的继承模式举例:'创建一个继承类库Class ClassHelperprivate dict'添加方法public default function addMethod(name)set dict(name) = getRef(dict("type") & name)end function'创建字典对象private function createDict()set createDict = CreateObject("scripting.dictionary")end function'复制字典对象 阅读全文
摘要:
'函数指针模式举例:'函数tt1Function tt1Msgbox "tt1"End Function'函数tt2Function tt2Msgbox "tt2"End Function'建立测试流函数Function TestFlow(LoadFuncs)'遍历所有载入的函数名,并利用函数指针进行调用For i = 0 To UBound(LoadFuncs) - LBound(LoadFuncs)'将CallFunc的指针指向动态载入的函数Set CallFunc = GetRef(LoadFuncs 阅读全文
摘要:
'回调设计模式举例:On Error Resume Next'创建一个类Class CallBack'被调用的对象Dim Caller'回调的动态脚本Dim CallBackScript'类的销毁化Sub Class_Terminate()Execute CallBackScriptEnd SubEnd Class'Test函数Function Test()'定义回调变量Dim CB'实例化回调Callback类Set CB = New Callback'加入回调设计代码块CB.CallBackScript = " 阅读全文
摘要:
'命令包装模式举例:'定义一个oCommand类Class oCommand'定义输入Private VarIntNumPublic Property Get NumberNumber = VarIntNumEnd PropertyPublic Property Let Number(ByVal oNum)VarIntNum = oNumEnd Property'定义输出Private VarResultPublic Property Get ResultResult = VarResultEnd PropertyPublic Property Let Resu 阅读全文
摘要:
'工厂设计模式举例:Public oOutputsSet oOutputs = New OutFactoryClass OutFactoryPublic Channels '定义变量Private Sub Class_InitializeSet Me.Channels = CreateObject("Scripting.Dictionary")End SubPrivate Sub Class_TerminateSet Me.Channels = NothingEnd SubPublic Sub Construct(sChannelName, sChannel 阅读全文