Question

VB 按钮单击后变色

使Command默认绿色 单击后变成红色 再单击变成红色

代码是什么

Answer 1

先把command1属性窗口中的Style设为1，否则不能改变按钮颜色。
Private Sub Form_Load()
Command1.BackColor = vbGreen
End Sub
Private Sub Command1_Click()
Command1.BackColor = vbRed
End Sub

Answer 2

先把command1属性窗口中的Style设为1，否则不能改变按钮颜色。
Command1.BackColor默认绿色

Option Explicit
Dim cFT As Long
Private Sub Command1_Click()
If cFT = 0 Then
Command1.BackColor = vbRed
cFT = 1
ElseIf cFT = 1 Then
Command1.BackColor = vbRed
cFT = 2
ElseIf cFT = 2 Then
Command1.BackColor = vbGreen
cFT = 0

End If
End Sub