Visual Basic 中制作流水燈

都市的夜色中閃爍著各式各樣的霓虹燈，其中用得最多的大概要算流水燈，它的行云流水般的效果為寧?kù)o的夜晚帶來(lái)生機(jī)。如果在我們制作的多媒體軟件的界面中加入一串閃閃發(fā)光的流水燈會(huì)是一種什么樣的效果呢？按下面的步驟你可以為你的多媒體程序加入一串有追逐效果的流水燈。

1、建立一個(gè)新的表單。進(jìn)入Visual 5asic 4.0系統(tǒng)環(huán)境，建立一個(gè)新的表單（FORM1），并設(shè)置FORM1的Backcolor屬性為RGB(192,192,192)。

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

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

4、建立計(jì)時(shí)器。鼠標(biāo)點(diǎn)擊“表單控制欄”中的“計(jì)時(shí)器”，再在FORM1上點(diǎn)擊一下，即可在FORM1上創(chuàng)建一個(gè)計(jì)時(shí)器（TIMER1）。設(shè)置它的屬性Interval為400。

5、雙擊FORM1，編寫(xiě)FORM1的Load過(guò)程如下：

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，編寫(xiě)TIMER1的Timer過(guò)程如下：

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

運(yùn)行表單后可見(jiàn)到紅、綠、藍(lán)三種顏色的彩燈交替點(diǎn)亮，調(diào)整Timer1的Interval屬性值大小可以改變?nèi)M彩燈的循環(huán)速度。

以上程序在Visual Basic 5.0及Windows 95中運(yùn)行通過(guò)。