Question

vb 改变Label颜色

Label已设置有背景颜色，点击Label，Label的背景颜色变为红色，再点击,Label的背景颜色变回原来的颜色.
如果Label是控件数组，又应该怎样呢？

Answer 1

Private Sub Label1_Click(Index As Integer)
If Label1(Index).BackColor = vbRed Then
Label1(Index).BackColor = Val(Label1(Index).Tag)
Else
Label1(Index).Tag = Label1(Index).BackColor
Label1(Index).BackColor = vbRed
End If
End Sub

Answer 2

Dim col

Private Sub Form_Load()
col = Label1.BackColor
End Sub

Private Sub Label1_Click()
If Label1.BackColor = vbRed Then Label1.BackColor = col Else Label1.BackColor = vbRed
End Sub