上海 鮑偉強

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