'One Test Program 'lay a CommandBox named Command1 on the Form 'The Style CommandBox(Command1) is "1-Graphical" Private Sub Command1_Click() Command1.Enabled = False Command1.BackColor = vbGreen Command1.Caption = "Change BackColor" Command1.Enabled = True End Sub
修改BackColor为你自己想要的颜色!
'lay a CommandBox named Command1 on the Form
'The Style CommandBox(Command1) is "1-Graphical"
Private Sub Command1_Click()
Command1.Enabled = False
Command1.BackColor = vbGreen
Command1.Caption = "Change BackColor"
Command1.Enabled = True
End Sub