VisualBasic中字符淡出淡入的實(shí)現(xiàn)

2019-11-18 17:37:58

字體：大中小

供稿：網(wǎng)友

----筆者偶爾在《計(jì)算機(jī)世界》上讀到一篇關(guān)于在VISUALFOXPRO中實(shí)現(xiàn)字符的淡出淡入的文章，受此啟發(fā)，筆者參照原文章用VisualBasic4.0也編寫了一段類似的字符的淡出淡入程序，以此說明Microsoft的可視化開發(fā)工具具有的共性：相同或相似的圖形用戶界面（GUI），面向?qū)ο蠛褪录?qū)動(dòng)的特性以及相同或相似的函數(shù)等等。這個(gè)特點(diǎn)使得程序開發(fā)和設(shè)計(jì)人員可以借鑒使用不同的Microsoft可視化工具開發(fā)的應(yīng)用程序，并進(jìn)行方便的移植，縮短開發(fā)周期。同時(shí)，這對計(jì)算機(jī)語言的學(xué)習(xí)可以起到觸類旁通的作用。

----字符的淡入淡出功能可以通過對標(biāo)簽（LABEL）控件的前景做不斷的改變來完成。控件前景的變化，
可以在設(shè)計(jì)時(shí)用標(biāo)簽控件的前景屬性來設(shè)置，也可以在程序中通過給前景屬性賦予不同的色彩值來實(shí)現(xiàn)。色彩由RGB函數(shù)提供（VisualFoxpro也有該函數(shù)）。用定時(shí)器控件產(chǎn)生的中斷不斷改變RGB參數(shù)值，因此能夠使得字符的前景隨之改變，實(shí)現(xiàn)了淡出淡入的目的。

----下面用VisualBasic4.0編寫的程序完成了兩個(gè)功能：（1）字符的淡出淡入，而且顏色的變化有256*256*256種，此處只選擇了由灰色到紅色的變化；

（2）淡出時(shí)字符由小到大，淡入時(shí)則由大到小。另外，本程序的實(shí)現(xiàn)過程可完全方便地向VisualC、Visualjava等可視話語言移植。

----一.啟動(dòng)VisualBasic4.0，自動(dòng)生成一個(gè)窗體，默認(rèn)為FORM1。

----二.將該窗體的屬性設(shè)置如下：

NAME：DEMO
CAPTION：VB實(shí)現(xiàn)字符的淡入淡出
BACKCOLOR：&H00C0C0C0,即背景為灰色

----三.在窗體DEMO中定義以下窗體變量,即在General-declaration過程中定義色彩參數(shù)R，G，B。

DimrAsInteger
DimgAsInteger
DinbAsInteger

----四.在Form-load過程中設(shè)置字符色彩初值,即灰
色：

PrivateSubForm_Load()
r=192
g=192
b=192
EndSub

----五.在窗體DEMO中加入一標(biāo)簽，其屬性設(shè)置如下：

NAME：LABEL1
CAPTION：哈爾濱國投債券交易系統(tǒng)
AUTOSIZE：TRUE，用以實(shí)現(xiàn)字符的縮放
BACKSTYLE：0-TRANSPARENT，即透明
FONT：字體為隸書，大小選擇為8

----六.在窗體中加入定時(shí)器控件，用以完成淡出功能，設(shè)置如下：

NAME：OUTTIMER
INTERVAL：50，即隔一秒中斷一次，色彩變化一次。

----七.再加入一個(gè)定時(shí)器，完成淡入功能：

NAME：INTIMER
INTERVAL：50

----八.在OUTTIMER的TIMER過程中加入以下代碼：

PrivateSubOuttimer_Timer()
Ifr<255Then
r=r 1
Else
r=255
EndIf
Ifg>3Then
g=g-3
Else:g=0
EndIf
Ifb>3Then
b=b-3
Else:b=0
EndIf
Label1.FontSize=Label1.FontSize 0.75
Label1.ForeColor=RGB(r,g,b)
IfLabel1.FontSize>=72Then
Outtimer.Enabled=False
Intimer.Enabled=True
EndIf
EndSub

----九.在INTIMER中加入如下代碼：

PrivateSubIntimer_Timer()
Ifr>192Then
r=r-1
Else
r=192
EndIf
Ifg<192Then
g=g 3
Else:g=192
EndIf
Ifb<192Then
b=b 3
Else:b=192
EndIf
Label1.FontSize=Label1.FontSize-0.75
Label1.ForeColor=RGB(r,g,b)
IfLabel1.FontSize<=8Then
Intimer.Enabled=False
Outtimer.Enabled=True
EndIf
EndSub

----當(dāng)完成上述步驟后，按運(yùn)行按扭，就可看到在窗體內(nèi)“哈爾濱國投證券交易系統(tǒng)”幾個(gè)字由小到大、有淺入深地顯示出來；當(dāng)字體達(dá)到規(guī)定的大小時(shí)，又漸漸地消失在窗體之中，實(shí)現(xiàn)淡出淡入的功能。