如何实现VB的命令按钮command1单击后按钮上的文字变成红色，再单击变成默认的颜色？ 10
2个回答
展开全部
这个可以，首先要记录下原来的颜色，然后变成红色，最后根据记录的颜色还原，但是电脑运行的速度很快，要是马上还原颜色的话看不到效果，所以要做一下延时，这样才能看到它变色，首先添加一个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
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
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
