明輝手游網(wǎng)中心:是一個免費(fèi)提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺!

Visual Basic 中制作流水燈

[摘要]都市的夜色中閃爍著各式各樣的霓虹燈,其中用得最多的大概要算流水燈,它的行云流水般的效果為寧靜的夜晚帶來生機(jī)。如果在我們制作的多媒體軟件的界面中加入一串閃閃發(fā)光的流水燈會是一種什么樣的效果呢?按下面的步驟你可以為你的多媒體程序加入一串有追逐效果的流水燈。1、建立一個新的表單。進(jìn)入Visual Bas...
都市的夜色中閃爍著各式各樣的霓虹燈,其中用得最多的大概要算流水燈,它的行云流水般的效果為寧靜的夜晚帶來生機(jī)。如果在我們制作的多媒體軟件的界面中加入一串閃閃發(fā)光的流水燈會是一種什么樣的效果呢?按下面的步驟你可以為你的多媒體程序加入一串有追逐效果的流水燈。

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

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

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

4、建立計時器。鼠標(biāo)點(diǎn)擊“表單控制欄”中的“計時器”,再在FORM1上點(diǎn)擊一下,即可在FORM1上創(chuàng)建一個計時器(TIMER1)。設(shè)置它的屬性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

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

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


相關(guān)文章