用VB实现流水灯特效

软件世界

许春艳

Visual Basic是目前最简单的开发语言之一，利用它可以轻松创建Windows平台上的应用程序，下面用它来实现流水灯效果，供大家参考。
都市的夜色中闪烁着各式各样的霓虹灯，其中用得最多的大概要算流水灯，它的行云流水般的效果为宁静的夜晚带来生机。如果在我们制作的软件的界面中加入一串闪闪发光的流水灯会是一种什么样的效果呢？按下面的步骤你可以为你的程序加入一串有追逐效果的流水灯。
1.建立一个新的窗体。进入Visual Basic 6.0系统环境，建立一个新的窗体(FORM1)。
2.建立第一个彩灯。鼠标点击“工具栏”中的“标签”，并在FORM1上拉出一个矩形方框(LABEL1)。设置它的属性Caption为“★”，Autosize为.T.，Backstyle为0，Forecolor为红色。
3.建立其他29个彩灯。鼠标点击LABEL1，按“CTRL+C(拷贝)”键，再按“CTRL+V(粘贴)”键，在FORM1上创建另一个标题与LABEL1相同的标签(LABEL1(1))，屏幕提示是否建立控件数组时选择“YES”。如此反复进行拷贝，共建立30个标签，将这30个标签按顺序排成一个矩形方框。
4.建立计时器。鼠标点击“表单控制栏”中的“计时器”，再在FORM1上点击一下，即可在FORM1上创建一个计时器(TIMER1)。设置它的属性Interval为400。
5.在通用位置定义变量如下：
Dim I As Integer
Dim J As Integer
6.双击FORM1，编写FORM1的Load过程如下：
For J = 0 To 9
Label1(J * 3).ForeColor = &HFF& '红色
Label1(J * 3 + 1).ForeColor = &HFF00& '绿色
Label1(J * 3 + 2).ForeColor = &HFFFF& '黄色
Next J
7.双击TIMER1，编写TIMER1的Timer过程如下：
Private Sub Timer1_Timer
Dim K As Integer
If I = 30 Then
I = 0
End If
I = I + 1
For J = 0 To 29
Label1(J).Visible = False
Next J
If I Mod 3 = 2 Then
K = 1
ElseIf I Mod 3 = 0 Then
K = 2
Else
K = 0
End If
For J = 0 To 9
Label1(J * 3 + K).Visible = True
Next J
End Sub
运行表单后可见到红、绿、蓝三种颜色的彩灯交替点亮，调整Timer1的Interval属性值大小可以改变三组彩灯的循环速度。
注：以上程序在Visual Basic 6.0及Windows 98中运行通过。