一个漂亮的外衣可以为你增添无穷的魃力。那么如何用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，对图标区域进行画点、画线、画圆以及画其它图形，可以使图标动起来。
当然，我们还可以用其它的图标编辑工具，编辑出若干个图标，用计时器来定时更改程序的图标来达到活动图标的目的，但是这种方法却限制了计算机动态作图的创意。
延伸阅读
文章来源于领测软件测试网 https://www.ltesting.net/
