怎样改变命令按钮的颜色？

[mtoad]

Private Sub Command2_Click()
Command2.BackColor = QBColor(3)
End Sub

Private Sub Form_Load()
Command2.BackColor = QBColor(7)
End Sub

这样不行？？？？

[DekieCheng]

Command2.BackColor = QBColor(3) ,这样是不能实现的,你这样改一下就可以了:
Command2.Style = 0 'Standard(标准风格)
Command2.Style = 1 'Graphical(图形风格)

[DekieCheng]

Command2.BackColor = QBColor(3) ,这样是不能实现的,你这样改一下就可以了:
Command2.Style = 0 'Standard(标准风格)
Command2.Style = 1 'Graphical(图形风格)
------------------------------------------------------------------------

Command2.BackColor = QBColor(3) ,这样是不能实现的,你这样改一下就可以了:
Command2.Style = 0 'Standard(标准风格)
Command2.Style = 1 'Graphical(图形风格)
--还要设置颜色就可以了
Command2.BackColor=vbRed

[syszj]

把Style屬性設為1,BackColor就可生效

[Intelement]