如何让标签批量改变颜色

gemeng　发表于：2016-06-13 16:52:32 　

Private Sub Text36_BeforeUpdate(Cancel As Integer)
Me.Controls("Label1").BackColor = -2147483633
Me.Controls("Label2").BackColor = -2147483633
Me.Controls("Label3").BackColor = -2147483633
Me.Controls("Label4").BackColor = -2147483633
Me.Controls("Label5").BackColor = -2147483633
Me.Controls("Label6").BackColor = -2147483633
Me.Controls("Label7").BackColor = -2147483633
Me.Controls("Label8").BackColor = -2147483633
Me.Controls("Label9").BackColor = -2147483633
Me.Controls("Label10").BackColor = -2147483633

end sub

如果Label1至100或者更多的标签时，这样代码感觉好多好麻烦

各位老师，是否有更便捷的方法？

Top

朱先生发表于：2016-06-13 23:17:12

Private Sub Command1_Click()
For i = 1 To ([Controls].[Count] - 1) / 2
Me("LaBEL" & i).BackColor = -2147483633

Next
End Sub

说明：如果窗体上有一个按钮用 For i = 1 To ([Controls].[Count] - 1) / 2
如果没有按钮则用 For i = 1 To [Controls].[Count] / 2

Top

gemeng 发表于：2016-06-14 08:17:48

你好朱先生，能否做到控制Label1到Label300之间呢？

对于Label之后的标签不改变