在设计状态时将按钮Command1.Style = vbButtonGraphical ‘改为图像模式,这一点很关键。
'否则颜色无法显示。
Private Sub Command2_Click()
Command1.BackColor = vbRed
End Sub
在设计状态时将按钮Command1.Style = vbButtonGraphical ‘改为图像模式,这一点很关键。
'否则颜色无法显示。
Private Sub Command2_Click()
Command1.BackColor = vbRed
End Sub
用标准控件是无法改变的。有两种方法可以解决:
(1)采用图片框来代替
(2)搜xp控件,是windows
xp风格的控件(如命令按钮、单选按钮、复选框……)。通常都会有示例说明,颜色很丰富,也很漂亮
假设你有Button1和Button2,按下了Button1之后改变Button2的颜色,那么:
在设计状态时将按钮Command2.Style
=
vbButtonGraphical
‘改为图像模式,这一点很关键。
'否则颜色无法显示。
Private
Sub
Command1_Click()
Command2.BackColor
=
vbRed
End
Sub
在设计状态时将按钮Command1.Style = vbButtonGraphical ‘改为图像模式,这一点很关键。
'否则颜色无法显示。
Private Sub Command2_Click()
Command1.BackColor = vbRed
End Sub
希望对你有帮助