如何实现VB的命令按钮command1单击后按钮上的文字变成红色，再单击变成默认的颜色？

如何实现VB的命令按钮command1单击后按钮上的文字变成红色，再单击变成默认的颜色？

这个可以，首先要记录下原来的颜色，然后变成红色，最后根据记录的颜色还原，但是电脑运行的速度很快，要是马上还原颜色的话看不到效果，所以要做一下延时，这样才能看到它变色，首先添加一个timer控件，属性interval设置成500（时间设为0.5妙）
enabled设为false(不可用)
Dim color as long
在Command1_click加入以下代码
color=command1.backcolor
Command1.backcolor=vbred
Timer1.enable=true
说明，让按钮颜色变为红色，让时间记可用…
双击timer1
在Timer1_timer事件中添加代码
command1.backcolor=color
timer1.enabled=false

vb自带的command控件不支持文字变色，只有默认黑色。 你可以使用一个label标签代替command，这样就行了。label也支持click、mousemove等事件，只是没有command的立体感强。