Question

VB中怎样实现单击2次command1，发生两个不同事件

比如我点一次按钮，它的结果是“label1.backcolor = vbred"，我再点这个按钮时出现的结果是”label2.backcolor = vbred“

通俗点讲就是点一次让第一个标签变色，点第二次第二个标签变色

Answer 1

Private Sub Command1_Click()
Static i As Integer
If i = 0 Then
Label1.BackColor = vbRed
ElseIf i = 1 Then
Label2.BackColor = vbRed
Else
MsgBox "第" & Str(i + 1) & "次点击"
End If
i = i + 1
End Sub

Answer 2

Private Sub Command1_Click()
If Command1.Tag = "1" Or Command1.Tag = "" Then
Label1.ForeColor = vbRed
Label2.ForeColor = vbBlack
Command1.Tag = "2"
Else
Label1.ForeColor = vbBlack
Label2.ForeColor = vbRed
Command1.Tag = "1"
End If
End Sub