怎样批量设置控件的背景颜色

Question

我的窗体中有很多个控件,包括text label Command等不同的控件,如果一个一个地去设置属性中的backcolor就太麻烦了,就什么方法可以批量设置它们的backcolor为同一个值?

Answer 1

名称有规律就好办了。假如10个Label
For x = 1 to 10
Me.Controls("Label" & x).BackColor = vbRed
Next x

Answer 2

kaoper1000() : 就是没有规则,也不是数组

Answer 3

自己解决了:    On Error Resume Next
    Dim obj As Object
    For Each obj In Me.Controls
    Debug.Print obj.Name
    obj.BackColor = 颜色
    Next