VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 成组更新控件属性
发表评论(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