流水灯vb程序，用滚动条控制灯光变化速度

如题所述

很简单，我来给你做啊
联系我,baidu hi

控件：一组共15个Command1控件数组（Style设置为1）， Label1, HScroll1, Timer1
代码：
Dim i As Integer, j As Integer
Private Sub Form_Load()
With HScroll1
.Max = 1000
.LargeChange = 200
.SmallChange = 50
.Value = 500
End With
Label1.Caption = HScroll1.Value
Timer1.Interval = HScroll1.Value
For j = 0 To 14
Command1(j).BackColor = vbGreen
Next
End Sub

Private Sub HScroll1_Change()
If HScroll1.Value = 0 Then HScroll1.Value = 50
Timer1.Interval = HScroll1.Value
Label1.Caption = HScroll1.Value
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
Command1(i - 1).BackColor = vbGreen
Command1(i).BackColor = vbRed
Command1(i).SetFocus
i = i + 1
If i = 15 Then i = 0: Command1(14).BackColor = vbGreen
End Sub
调试：
VB6调试通过

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/f278ssqp2.html