关于VB闪动按扭的问题，VB高手进~``急

来源：百度知道 编辑：UC知道 时间：2024/06/07 15:30:19
我想做这样一个效果，在一个窗体上有command1、command2、command3这三个按扭

窗体运行以后，三个按扭均显示为绿色

第一秒钟后,command1变为红色

第二秒种后，command1变回绿色，command2变为红色

第三秒钟后，command2变回绿色，command3变为红色

第四秒钟后，command3变回绿色，command1变为红色

如此一直循环下去

本人初学者，请VB高手详细解释一下具体做法~``谢谢大家了~`

回答的详细具体，我能看明白的我在追加给分

用command控件数据吧.代码可以更简炼：
创建command1按钮数组，将其style属性设置graphic ,backcolor设置为&H0000FF00&
一个Timer控件，interval值设为1000

Private Sub Timer1_Timer()
Static j
If j <> 0 Then
Command1(j - 1).BackColor = vbGreen
End If
If j = 3 Then j = 0
Command1(j).BackColor = vbRed
j = j + 1
End Sub

增加三个command按钮，将其style属性设置为1
增加一个Timer控件，不需要设置任何属性
加入下列代码
Option Explicit

Private Sub Form_Load()

With Timer1
.Interval = 1000
.Enabled = True
End With

With Command1
' .Style = 1
.BackColor = vbGreen
End With

With Command2
' .Style = 1
.BackColor = vbGreen
End With
With Command3
' .Style = 1
.BackColor = vbGreen
End With

End Sub

Private Sub Timer1_Timer()

Static