Question

Label1.BackColor = RGB(255, 0, 255)

Label1.BackColor = RGB(255, 0, 255)
Label2.BackColor = RGB(255, 0, 255)
Label3.BackColor = RGB(255, 0, 255)

'有没有快一点的方法,一次给全部赋值?
'最好是用代码完成...

Answer 1

Private Sub Form_Load()
nn Label1
nn Label2
nn Label3
End Sub
Sub nn(labe As Label)
labe.BackColor = RGB(255, 0, 255)
End Sub

Answer 2

For i=1 to 3
Controls("Label"&i).BackColor = RGB(255, 0, 255)
next