都市的夜色中閃爍著各式各樣的霓虹燈，其中用得最多的大概要算流水燈，它的行云流水般的效果為寧?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