发表评论(0)作者：, 平台：, 阅读：10097, 日期：2000-03-12

　


成组更新控件属性



下面是成组更新 Enabled 属性的例子：

Sub EnableAll(Enabled As Boolean, ParamArray objs() As Variant)

Dim obj As Variant

For Each obj In objs

obj.Enabled = Enabled

Next obj

End Sub

应用：

EnableAll True, Text1, Text2, Command1, Command2