Visual Basic 中制作流水燈

領測軟件測試網 都市的夜色中閃爍著各式各樣的霓虹燈，其中用得最多的大概要算流水燈，它的行云流水般的效果為寧靜的夜晚帶來生機。如果在我們制作的多媒體軟件的界面中加入一串閃閃發光的流水燈會是一種什么樣的效果呢？按下面的步驟你可以為你的多媒體程序加入一串有追逐效果的流水燈。

1、建立一個新的表單。進入Visual Basic 4.0系統環境，建立一個新的表單（FORM1），并設置FORM1的Backcolor屬性為RGB(192,192,192)。

2、建立第一個彩燈。鼠標點擊“表單控制欄”中的“標簽”，并在FORM1上拉出一個矩形方框（LABEL1）。設置它的屬性Caption為“★”（也可為其它字符，這里的“★”可在 WINDOWS 95的“附件”的“字符映射表”中找到），Autosize為.T.，Backstyle為0，Forecolor為紅色，字體大小為18。

3、建立其它29個彩燈。鼠標點擊LABEL1，按CTRL + C（拷貝）鍵，再按CTRL + V（粘貼）鍵，在FORM1上創建另一個標題與LABEL1相同的標簽（LABEL1（1）），屏幕提示是否建立控件數組時選擇‘YES’。如此反復進行拷貝，共建立30個標簽，將這30個標簽按順序排成一個矩形方框。

4、建立計時器。鼠標點擊“表單控制欄”中的“計時器”，再在FORM1上點擊一下，即可在FORM1上創建一個計時器（TIMER1）。設置它的屬性Interval為400。

5、雙擊FORM1，編寫FORM1的Load過程如下：

Private Sub Form_Load()

I = 0

For j = 0 To 9

Label1(j * 3).ForeColor = &HFF& '紅色

Label1(j * 3 + 1).ForeColor = &HFF00& '綠色

Label1(j * 3 + 2).ForeColor = &HFFFF& '黃色

Next j

End Sub

6、雙擊TIMER1，編寫TIMER1的Timer過程如下：

Private Sub Timer1_Timer()

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

For J = 0 To 9

Label1(J * 3 + 1).Visible = True

Next J

Else

If I Mod 3 = 0 Then

For J = 0 To 9

Label1(J * 3 + 2).Visible = True

Next J

Else

For J = 0 To 9

Label1(J * 3).Visible = True

Next J

End If

End If

End Sub

運行表單后可見到紅、綠、藍三種顏色的彩燈交替點亮，調整Timer1的Interval屬性值大小可以改變三組彩燈的循環速度。

以上程序在Visual Basic 5.0及Windows 95中運行通過。

文章來源于領測軟件測試網 http://www.kjueaiud.com/