上海 鮑偉強(qiáng)

    一個漂亮的外衣可以為你增添無窮的魃力。那么如何用VB給你的程序加上一個漂亮的活動圖標(biāo)呢？了解了創(chuàng)建過程后，給你的程序加上一件漂亮的外衣所需要的僅僅是你豐富的想象力和活躍的創(chuàng)意。現(xiàn)在先請你運(yùn)行你的Visual Basic FOR WIN.
1，選擇FILE菜單中的PROJECT，并存儲新窗體為c：＼user＼tubiad.frm，存儲新項(xiàng)目文件c：＼user＼tubiao.mak。然后按下表實(shí)現(xiàn)tubiao窗體。
對象 特性 設(shè)置值
窗體 NAME TUBIAO
CAPTION 活動圖標(biāo)（或由你定義）
ICON C：＼USER＼YOUICON.ICO（或NONE）
MINBUTTON TRUE
MAXBUTTON TRUE
VISIBLE TRUE
命令按鈕 NAME cmdEXIT
CAPTION E＆XIT
VISIBLE TRUE
雙擊E＆XIT按鈕，給E＆XIT按鈕附加CLICK事件程序
SUB cmdEXIT－CLICK （） ‘結(jié)束程序
END
END SUB
2、創(chuàng)建一個MAIN（）過程。從FILE菜單中選擇NEW MODULE，存儲新模塊為C：＼usser＼TUBIAO.BAS，選擇WINDOWS菜單中的PROJECT，然后用鼠標(biāo)加亮PROJECT 窗口中的VIEWFORM按鈕，然后從菜單中選擇NEW PROCEDURE項(xiàng)。此時VISUAL BASIC顯示NEW PROCEDURE的對話框，選擇SUB單選鈕，在NAME框中鍵入MAIN，單擊OK鍵。
3，雙擊PROJECT窗口中的TUBIAO.BAS，從PROC下拉條中選擇MAIN項(xiàng)，輸入MAIN（）過程如下：
Sub Main ()
Dim x,y,i ‘顯示TUBIAO窗體
TUBIAO.Show
i=0
Do While DoEvents()
i=i+1
x=Rnd*TUBIAO.ScaleWidth
y=Rnd*TUBIAO.ScaleHeight
TUBIAO.CurrentX=TUBIAO.ScaleWidth/2
TUBIAO.CurrentY=TUBIAO.ScaleHeight/2
If i >=15 Then
i=O
End If
‘縮小TUBIAO窗體為圖標(biāo),在屬性窗口中看到
‘SCALEWIDTH=540和SCALHEIGHT=540
IF TUBIAO.ScaleHeight <541 and TUBIAO.Scalewidth <541 THEN
‘隨機(jī)地在圖標(biāo)區(qū)域內(nèi)畫方塊
TUBIAO.Line-(x,y),QBColor(Rnd*15),BF
END IF
Loop
End Sub
4，必須設(shè)置 MAIN （）為啟動窗體。選擇OPTION菜單中的PROJECT項(xiàng)，VISUAL BASIC顯示PROJECT OPTION對話框，選擇SUB MAIN窗體為啟動窗體。
5，存儲窗體和項(xiàng)目文件。選擇菜單項(xiàng)RUN中START執(zhí)行。
對于放大窗口是看不到圖標(biāo)的，縮小窗口，我們馬上可以看到動態(tài)中的圖標(biāo)。當(dāng)PC機(jī)不忙于TUBIAO窗體或其它窗體任務(wù)時，MAIN（）中的DOWHILE和LOOP之間的代碼頁被執(zhí)行。如果發(fā)現(xiàn)窗口被縮小，立即隨機(jī)地在圖標(biāo)區(qū)域內(nèi)畫方塊。
那么,我們現(xiàn)在試一下修改語句TUBIAO.LINE-(X,Y),QBCOLOR(RND*15),BF為
TUBIAO.LINE-(X,Y), QBCOLOR(RND*15),B
或TUBIAO.LINE-(X,Y), QBCOLOR(RND*15)
重新執(zhí)行一次程序，我們發(fā)現(xiàn)效果截然兩樣。同理，我們通過修改MAIN（）程序，利用窗體的SCALEWIDTH和SCALEHEIGHT，對圖標(biāo)區(qū)域進(jìn)行畫點(diǎn)、畫線、畫圓以及畫其它圖形，可以使圖標(biāo)動起來。
當(dāng)然，我們還可以用其它的圖標(biāo)編輯工具，編輯出若干個圖標(biāo)，用計(jì)時器來定時更改程序的圖標(biāo)來達(dá)到活動圖標(biāo)的目的，但是這種方法卻限制了計(jì)算機(jī)動態(tài)作圖的創(chuàng)意。