小小图标动起来 小欣 1997-01-01 　　我们有时可以发现，一些Ｗｉｎｄｏｗｓ小工具的窗口最小化后，图标是会动的，譬如“鱼缸”程序，在运行其它软件时，它的最小化图标上仍然有鱼不停地游动，仿佛在提醒你：我在这儿呢？ 　　你是否也想给你自己的软件加上这种看来很有趣、也能增添活泼气氛的效果呢？其实，这用ＶＢ实现起来一点也不难：ＶＢ的窗体不是有个ＩＣＯＮ属性吗？你只要画一些不同的图标，设定定时器每隔一定的时间，就给ＩＣＯＮ属性赋于不同的图像，这种效果就出来了！在这里你可以充分发挥自己的想象力，设计如鬼脸小丑、闪烁繁星等等简单小动画，甚至，让你自己的大名在图标上“欢蹦乱跳”也可以！ 　　在ＶＢ３的ＳＡＭＰＬＥＳ子目录下，有一个ＩＣＯＮＷＲＫＳ程序，可供绘制各种图标，你可将它编译成可执行文件，在Ｗｉｎｄｏｗｓ下直接调用。当然图标文件也可以赋值给一个ＰＩＣＴＵＲＥ或一个ＩＭＡＧＥ对象。这样你可以把一系列的图标存在一个图像数组里，进行编程就可实现上述功能了。 　　下面假定主窗口名为Ｆｏｒｍ１，定时器名为Ｔｉｍｅｒ１，图标图像共有五个，存放在ｐｉｃ（）图像数组里，大致的程序如下： 　　Ｄｉｍ　ｎｏｗｐｉｃ　　’存放当前图像的号码 　　Ｄｉｍ　ｍａｘｐｉｃ　　’图像数量 　　Ｓｕｂ　Ｆｏｒｍ－Ｌｏａｄ（） 　　ｎｏｗｐｉｃ＝０ 　　ｍａｘｐｉｃ＝５ 　　ｔｉｍｅｒ１．ｉｎｔｅｒｖａｌ＝４００　　’设定变换速度，此值视具体情况而定 　　Ｅｎｄ　Ｓｕｂ 　　Ｓｕｂ　ｔｉｍｅｒ１－Ｔｉｍｅｒ（） 　　Ｉｆ　ｆｏｒｍ１．ＷｉｎｄｏｗＳｔａｔｅ＝１　Ｔｈｅｎ　　　’只有当窗口最小化后，才起作用 　　ｎｏｗｐｉｃ＝ｎｏｗｐｉｃ＋１ 　　Ｉｆ　ｎｏｗｐｉｃ＝ｍａｘｐｉｃ　Ｔｈｅｎ　ｎｏｗｐｉｃ＝０ 　　ｆｏｒｍ１．Ｉｃｏｎ＝ｐｉｃ（ｎｏｗｐｉｃ）．Ｐｉｃｔｕｒｅ 　　Ｅｎｄ　ｉｆ 　　Ｅｎｄ　Ｓｕｂ 　　短短的一段程序，一个不简单的效果就出来了，当然其中最费周折的还是如何绘制生动的图标了。要使图标动起来，还有一种方法是：当窗口最小化时，使用Ｌｉｎｅ、Ｃｉｒｃｌｅ等语言直接在窗口上绘图，此时等于是在图标上绘图，自然也能实现动态效果。