成组更新控件属性
2006-02-27 11:49:48 来源:WEB开发网核心提示:SubEnableAll(EnabledAsBoolean,ParamArrayobjs()AsVariant)DimobjAsVariantForEachobjInobjsobj.Enabled=EnabledNextobjEndSub应用:EnableAllTrue,Text1,Text2,Command1,Com
SubEnableAll(EnabledAsBoolean,ParamArrayobjs()AsVariant)
DimobjAsVariant
ForEachobjInobjs
obj.Enabled=Enabled
Nextobj
EndSub
应用:
EnableAllTrue,Text1,Text2,Command1,Command2->
DimobjAsVariant
ForEachobjInobjs
obj.Enabled=Enabled
Nextobj
EndSub
应用:
EnableAllTrue,Text1,Text2,Command1,Command2->
[]
赞助商链接