用VB在窗口中显示动画图标

Windows 3。x系统有一个鲜为人知的地方。首先，选择“帮助\关于* * * ...”一个应用程序的菜单(如文件管理器，画笔，扫雷等。)自带系统弹出对话框，按住Ctrl和Shift键，用鼠标左键双击对话框中应用程序的图标，然后关闭对话框。接下来重复上述操作(两次打开的应用可以不一样)，再次双击图标，奇迹出现了！一面飘扬的Windows旗帜和“献给微软Windows 3.10团队所有辛勤工作的人！”将出现在对话框中。这样的短信。如果再来一次，一定会有新的惊喜。在Windows 95中，上述现象不复存在。而在执行其“查找”功能，缺少快捷方式时，对话框中显示的来回移动的放大镜或手电筒，可谓是绝佳的动画图标。

如果能在自己开发的应用中恰当地应用动画图标，一定会为程序界面增色不少。

其实用Visual Basic实现这些是很方便的。

(1)使用ICONWORK或VB自带的其他图标制作工具制作图标demo0.ico，demo1.ico，demo2.ico，...

(2)建立一个窗口，在适当的位置添加一个图像控件，比如左上角，打开其属性窗口，将其中的拉伸项设置为True，从图片项的右栏点击加载图片窗口，选择第一个图标(Demo0。Ico)由文件列表中的(1)制成。

(3)在窗口中添加一个定时器控件，并设置其Interval属性的值(如100ms，值越大动画速度越慢)。

(4)编写代码，每隔一段时间间隔用timer控件调用timer函数，替换该函数中图形控件显示的图标，获得动画效果。

所附源代码摘自作者开发的一个应用程序，在Windows 95中文版+Visual Basi c 4.0环境下运行良好。

附:节目单(表格5。Frm)

版本4.00

开始VB。表单表单5对话框表单

BackColor = & H00C0C000&背景色

BorderStyle =3 '固定双边框类型

Caption = "关于…"标题

…… ……

Top =1980上限

宽度=3840宽度

开始VB。图像图像图形控制

身高=855身高

Left = 120左边距

Picture ="FORM5.frx":0000张图片

Stretch =-1 '真实拉伸性

Top =240上边界

宽度=975宽度

目标