按钮控制标签改变背景色问题
求程序。。没用VB写过。。高手帮帮忙。。一个button，四个label，按一次button把label1的背景色改为蓝色，再按一次label2的背景色改为蓝色，label1变为原来的默认背景色，label3，label4的背景色也不变，依此类推，button按多一次改变后一个label背景色，并恢复前一个label背景色 --------------------编程问答-------------------- 如果不用控件数组的就一个个设吧
Private Sub Command1_Click()--------------------编程问答-------------------- vbRed -> vbBlue --------------------编程问答-------------------- 1楼大善！ --------------------编程问答--------------------
Static i%
i = i + 1
Select Case i
Case 1
Label1.BackColor = vbRed
Label2.BackColor = &H8000000F
Label3.BackColor = &H8000000F
Label4.BackColor = &H8000000F
Case 2
Label1.BackColor = &H8000000F
Label2.BackColor = vbRed
Label3.BackColor = &H8000000F
Label4.BackColor = &H8000000F
Case 3
Label1.BackColor = &H8000000F
Label2.BackColor = &H8000000F
Label3.BackColor = vbRed
Label4.BackColor = &H8000000F
Case 4
Label1.BackColor = &H8000000F
Label2.BackColor = &H8000000F
Label3.BackColor = &H8000000F
Label4.BackColor = vbRed
i = 0
End Select
End Sub
Option Explicit
Private iCount As Long '点击计数器
Private Colors(1 To 4) As Long '各控件变色值
Private Sub Command1_Click()
Dim i As Long
For i = 1 To 4
Me("label" & CStr(i)).BackColor = vbWindowBackground
Next i
iCount = iCount + 1
Me("label" & CStr((iCount - 1) Mod 4 + 1)).BackColor = Colors((iCount - 1) Mod 4 + 1)
End Sub
Private Sub Form_Load()
'变量初始化
iCount = 0
Colors(1) = vbRed
Colors(2) = vbBlue
Colors(3) = vbBlack
Colors(4) = vbGreen
End Sub
补充：VB , 控件
