怎么用Visual Basic制作活动图标？

    个漂亮的外衣可以为你增添无穷的魅力。那么如何用Visual Basic给你的程序加上个漂亮的活动图标呢？了解了创建过程后，给你的程序加上件漂亮的外衣所需要的仅仅是你丰富的想象力和活跃的创意。现在先请你运行你的Visual Basic。

    ①选择File菜单中的Project，并存储新窗体为c:＼user＼tubiad.frm，存储新项目c:＼user＼tubiao.mak。然后实现tubiao窗体，设定如下属性：

    窗体Name TUBIAO

    Caption活动图标(或由你定义)

    ICONC:＼USER＼YOUICON.ICO(或NONE)

    MINBUTTON TRUE

    MAXBUTTON TRUE

    VISIBLE TRUE

    命令按钮NamecmdEXIT

    Caption E&XIT

    VISIBLE TRUE

    双击E&XIT按钮，给E&XIT按钮附加Click事件程序：

    SUB cmdEXIT_Click()'结束程序

    END

    END SUB

    ②创建个MAIN()过程。

    从File菜单中选择New Module，存储新模块为c:＼user＼TUBIAO.BAS，选择Windows菜单中的Project，然后用鼠标加亮Project窗口，ViewForm按钮，然后从菜单中选择New Procedure项。此时Visual Basic显示New Procedure的对话框，选择sub单选钮，在Name框中键入MAIN，单击OK键。

    ③双击Project窗口中的TUBIAO.BAS，从PROC下列表条中选择Main项，输入Main()过程如下：

    Sub Main()

      Dim x,y,i'显示TUBIAO窗体

      TUBIAO.Show

      i＝0

      Do While DoEvents()

      i＝1+1

      x=Rnd*TUBIAO.ScaleWidth

      y=Rnd*TUBIAO.ScaleHeight

      TUBIAO.CurrentX＝TUBIAO.ScaleWidth／2

      TUBIAO.CurrentY＝TUBIAO.ScaleHeight／2

      If i>=15 Then

      i＝0

      End If

      '缩小TUBIAO窗体为图标，在属性窗口中看到

      'SCALEWIDTH＝540和SCALHEIGHT＝540

      IF TUBIAO.ScaleHeight < 54l and TUBIAO.ScaleWidth < 54l THEN

      '随机地在图标区域内画方块

      TUBIAO.Line_(x,y)，QBColor(Rnd * 15)，BF

      End If

      Loop

    End Sub

    ④必须设置Main()为启动窗体。选择Option菜单中的Project项，Visual Basic显示Project Option对话框，选择Sub Main窗体为启动窗体。

    ⑤存储窗体和项目文件。选择菜单项Run中Start执行。

    对于放大窗口是看不到图标的，缩小窗口，我们马上可以看到动态中的图标。当PC机不忙于TUBIAO窗体或其它窗体任务时，Main()中的Do While和Loop之间的代码被执行。如果发现窗口被缩小，立即随机地在图标区域内画方块。

    那么，我们现在试下修改语句TUBIAO.LINE_(X,Y)，QBCOLOR(RND*25)，BF为TUBIAO.LINE_(X,Y)，QBCOLOR(RND*15)，B

    或TUBIAO.LINE_(X,Y)，QBCOLOR(RND*15)

    重新执行次程序，我们发现效果截然两样。同理，我们通过修改Main()程序，利用窗体的Scalewidth和Scaleheight，对图标区域进行画点、画线、画圆以及画其它图形，可以使图标动起来。

    当然，我们还可以用其它的图标编辑工具，编辑出若干个图标，用计时器来定时更改程序的图标来达到活动图标的目的，但是这种方法却限制了计算机动态作图的创意。