SubEnableAll(EnabledAsBoolean,ParamArrayobjs()AsVariant)
DimobjAsVariant
ForEachobjInobjs
obj.Enabled=Enabled
Nextobj
EndSub
应用:
EnableAllTrue,Text1,Text2,Command1,Command2->
SubEnableAll(EnabledAsBoolean,ParamArrayobjs()AsVariant)
DimobjAsVariant
ForEachobjInobjs
obj.Enabled=Enabled
Nextobj
EndSub
应用:
EnableAllTrue,Text1,Text2,Command1,Command2->