Question

vb command 按键每点击一次就变化一次颜色

command 要求每点击一次就变化一次颜色，比如原来有绿色。点击一下变为红色。再点击一下就又变回为绿色。

Answer 1

private sub form_load() command1.backcolor=vbgreenend subprivate sub command1_click() if command1.backcolor=vbgreen then command1.backcolor=vbred else command1.backcolor=vbgreen end ifend sub

Answer 2

'在红绿两色徘徊吗?'一个按钮！Private Sub Command1_Click()
If Form1.BackColor = vbRed Then
Form1.BackColor = vbGreen
Else
Form1.BackColor = vbRed
End If
End Sub

Answer 3

DIM STATIC A AS 布尔IF A=TRUE 按钮背景颜色=红色ELSE 按钮背景颜色=绿色放入按钮点击事件中