VisualBasic中制作流水燈

2019-11-18 17:37:54

字體：大中小

供稿：網(wǎng)友

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

1、建立一個(gè)新的表單。進(jìn)入Visual5asic4.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為“★”（也可為其它字符，這里的“★”可在WINDOWS95的“附件”的“字符映射表”中找到），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ò)程如下：

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

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

Nextj

EndSub

6、雙擊TIMER1，編寫(xiě)TIMER1的Timer過(guò)程如下：

PrivateSubTimer1_Timer()

IfI=30Then

I=0

EndIf

I=I 1

ForJ=0To29

Label1(J).Visible=False

NextJ

IfIMod3=2Then

ForJ=0To9

Label1(J*3 1).Visible=True

NextJ

Else

IfIMod3=0Then

ForJ=0To9

Label1(J*3 2).Visible=True

NextJ

Else

ForJ=0To9

Label1(J*3).Visible=True

NextJ

EndIf

EndIf

EndSub

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

以上程序在VisualBasic5.0及Windows95中運(yùn)行通過(guò)。->