成组更新控件属性

　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->