Question

VB中如何使command点击一次后变成固定的颜色，点击别的又变回去

急急急

Answer 1

Dim oc As Long

Private Sub Command1_Click()
Command1.BackColor = vbRed
End Sub

Private Sub Command2_Click()
Command1.BackColor = oc
End Sub

Private Sub Form_Load()
Command1.Caption = "变为红色"
Command2.Caption = "恢复原色"
oc = Command1.BackColor
End Sub

以上代码涉及两个按钮：Command1和Command2，其中Command1的Style属性要设为1