用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宽度
目标
位律师回复
0条评论