admin 管理员组文章数量: 1086019
2024年3月10日发(作者：web前端开发html模板)
维普资讯
７０
第２５卷第６期
凯里学院学报
Ｊｏｕｒｎａｌ ｏｆ Ｋａｉｌｉ Ｕｎｉｖｅｒｓｉｔｙ
Ｖｏｌ｜２５ ＮＯ．６
Ｄｅｃ．２００７
２００７年Ｊ ２月
基于ＶＢ时钟控件的动画制作方法
肖 荣
（凯里学院数学与计算机科学系，贵州凯里５５６０００）
［摘 要］ｖＢ作为一种易学易用的可视化编程工具．提供了丰富的图形处理功能，在动画设计方面有其独到的一面
本文就基于ＶＢ时钟控件（Ｔｉｍｅｒ）的动画制作方法件（Ｔｉｍｅｒ）作一介绍．
［关键词］ＶＢ；时钟控件；动画
［中图分类号］ＴＰ３１４ ［文献标识码］Ａ［文章编号］１６７３—９３２９（２００７）０６—００７０—０２
ＶＢ作为一种易学易用的可视化编程工具．在动画设
计方面有其独到的～面、时钟（Ｔｉｍｅｒ）控件是ＶＢ中一个非
常重要的控件．它能有规律地以一定的时间间隔激发计时
器事件（Ｔｉｍｅｒ）．而执行相应的程序代码．灵活运用ＶＢ时
钟控件，结合ＶＢ提供的图形处理功能和其它控件，能产生
非常丰富的动画效果．
１ 闪烁动画效果
Ｆｏｒ ｒ １０ Ｉ＇ｏ ６５ Ｓｔｅｐ ３
Ｃｉｒｃｌｅ（ｚ， ），ｒ．ＱＢＣｏｌｏｒ（Ｉｎｔ（５＊Ｒｎｄ＋１０））
ｚ＝：ｚ＋８
ｙ—ｙ～ｌ
Ｎｅｘｔ ｒ
Ｅｎｄ Ｓｕｂ
闪烁的文字和图形可以在屏幕上起到明显的提示作
用．通过使用ＶＢ的 Ｉ＇ｉｍｅｒ控件，可以轻松实现闪烁字幕以
及闪烁图形的动画效果．
１｜１ 三维闪烁字幕
２ 滚动动画效果
网页中的多帧图象滚动和字幕滚动．为我们浏览网页
带来了方便．ＶＢ同样能制作出这样的动画效果．
２．１ 字幕滚动
设置一个ｌａｂｌｅ对象．一Ｔｉｍｅｒ对象．且Ｉｎｔｅｒｖａｌ一３０，
通过在Ｔｉｍｅｒ事件过程中．处理ｌａｂｌｅ对象的位置移动，实
现字幕的滚动．主要程序如下：
Ｐｒｉｖａｔｅ Ｓｕｂ Ｔｉｍｅｒｌ
Ｔｉｍｅｒ（）
—
设置一Ｔｉｍｅｒ对象，通过在Ｔｉｍｅｒ事件过程中，用循环
输出多层次、位置和颜色不同的文字，每４００ ｍｓ触发一次
（即Ｉｎｔｅｒｖａｌ＝４００），从而产生三维文字闪烁效果．主要程序
如下：
Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｉｍｅｒｌ
Ｔｉｍｅｒ（）
—
Ｄｉｍ ｍｌｅｆｔ
Ｌａｂｅｌ１．Ｃａｐｔｉｏｎ “欢迎使用ＶＢ６．０”
Ｌａｂｅｌ１．Ｍｏｖｅ Ｌａｂｅｌ１．Ｌｅｆｔ～２Ｏ
Ｉｆ Ｌａｂｅｌ１．Ｌｅｆｔ＜一～５ ０００ Ｔｈｅｎ
ｍｌｅｆｔ ８００
Ｄｉｎ１ ｉ
Ｃｌｓ
Ｆｏｒ Ｊ＝ｌ Ｔｏ ８
Ｃｕｒｒｅｎｔ Ｘ一６００＋
（：ｕｒｒｅｎｔ Ｙ：６００＋
６＊ｉ
１０＊ｉ
Ｌａｂｅｌ１．Ｌｅｆｔ—ｍｌｅｆｔ
Ｅｎｄ Ｉｆ
Ｅｎｄ Ｓｕｂ
ＦｏｒｅＣｏｌｏｒ：ＱＢＣｏｌｏｒ（Ｉｎｔ（５
Ｐｒｉｎｔ“ＶＢ程序设计”
Ｎｅｘｔ ｉ
２．２ 多帧图像滚动
设置一个Ｉｍａｇｅ对象数组．一Ｔｉｍｅｒ对象，且Ｉｎｔｅｒｖａｌ
一
Ｅｒｌ（１ Ｓｕｂ
２０．通过在Ｔｉｍｅｒ事件过程中。同时处理Ｉｍａｇｅ对象数组
Ｉｍａｇｅ对象时．停止滚动，再单击又继续滚动．主要程序
１．２ 闪烁螺旋环
一
中图像的位置移动．就能实现多帧图像的滚动．当单击任意
如下：
Ｄｉｍ ｉ％， Ａｓ Ｂｏｏｌｅａｎ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ
Ｌｏａｄ（）
＿
在上述程序的 Ｉ＇ｉｍｅｒ事件过程中，当用循环输出的是
一
组圆心位置、半径和颜色都发生变化的圆时，产生的就是
闪烁螺旋环效果．主要程序如下：
Ｐｒｉｘｒａｔｅ Ｓｕｂ Ｔｉｍｅｒ１Ｔｉｍｅｒ（）
一
Ｓｃａｌｅ（０，２００）一（３００，Ｏ）
Ｄｉｍ Ｘ ，Ｙ ．ｒ
ｚ一３５
Ｙ＝１１Ｏ
Ｆｏｒ ｌ ＴＯ ３
Ｌｏａｄ Ｉｍａｇｅ１（ｉ）
Ｉｍａｇｅｌ（ ）．Ｌｅｆｔ
Ｗｉｄｔｈ
Ｉｍａｇｅｌ（ｉ—１）．Ｌｅｆｔ＋Ｉｍａｇｅ１（ｉ—１）．
ＤｒａｗＷｉｄｔｈ：】．５
［收稿日期］２００７—０５—３ｔ
［作者简介］肖 荣（１９６２一），女，贵州凯里人，凯里学院数学与计算机科学系副教授
维普资讯
第６期
ｔ一 ｌ ｒｕｅ
肖 荣：基于ＶＢ时钟控件的动画制作方法
ＰＳｅｔ（Ｘ，Ｙ）。ＱＢＣｏｌｏｒ（０）
７ｌ
Ｎｅｘｔ
ＰＳｅｔ（ｍ（ｊ，０）。ｍ（ｊ，１）），ＲＧＢ（女，ｋ，女）
Ｎｅｘｔ Ｊ
Ｎｅｘｔ
Ｉｍａｇｅｌ（Ｏ）一ＬｏａｄＰｉｃｔｕｒｅ（Ａｐｐ．Ｐａｔｈ＋”＼ｍ（Ｏ）．ｊＰｇ”）
Ｉｍａｇｅｌ（１）一ＬｏａｄＰｉｃｔｕｒｅ（Ａｐｐ．Ｐａｔｈ＋”＼ｍ（１）．ｊＰｇ”）
Ｉｍａｇｅ１（２）＝ＬｏａｄＰｉｃｔｕｒｅ（Ａｐｐ．Ｐａｔｈ＋”＼ｍ（２）．ｊｐｇ”）
Ｉｍａｇｅｌ（３）一ＬｏａｄＰｉｃｔｕｒｅ（Ａｐｐ．Ｐａｔｈ＋”＼ｍ（３）．ｊＰｇ”）
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｔｉｍｅｒ１
Ｔｉｍｅｒ（）
一
Ｅｎｄ Ｓｕｂ
４．１ 缩放图像
设置一个Ｉｍａｇｅ对象，一个Ｔｉｍｅｒ对象，且Ｉｎｔｅｒｖａｌ＝
２００，通过在Ｔｉｍｅｒ事件过程中．改变Ｉｍａｇｅ对象的Ｗｉｄｔｈ
Ｆｏｒ 一０ Ｔｏ ３
Ｉｍａｇｅｌ（ ）．Ｍｏｖｅ Ｉｍａｇｅｌ（ ）．Ｌｅｆｔ一３０
Ｎｅｘｔ
Ｉｆ Ｉｍａｇｅ１（１）．Ｌｅｆｔ＜一一３ ０００ Ｔｈｅｎ
Ｘ一３００
Ｆｏｒ 一０ Ｔｏ ３
Ｉｍａｇｅｌ（ ）．Ｌｅｆｔ—Ｘ＋Ｉｍａｇｅｌ（ ）．Ｗｉｄｔｈ＊ｉ
Ｎｅｘｔ ｉ
Ｅｎｄ Ｉｆ
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｉｍａｇｅｌ—Ｃｌｉｃｋ（Ｉｎｄｅｘ Ａｓ Ｉｎｔｅｇｅｒ）
Ｉｆ ｔ Ｔｈｅｎ
Ｔｉｍｅｒ１．Ｅｎａｂｌｅｄ—ｔ
ｔ Ｆａｌｓｅ
Ｅｌｓｅ
Ｔｉｍｅｒ１．Ｅｎａｂｌｅｄ—ｔ
ｔ—Ｔｒｕｅ
Ｅｎｄ Ｉｆ
Ｅｎｄ Ｓｕｂ
３ 动画景象效果
满天飘飘的大雪．是人们最难忘的景色．ＶＢ也能在屏
幕上为我们制作出这样的情景．它的方法是设置一Ｔｉｍｅｒ
对象，且ｉｎｔｅｒｖａｌ—ｌ，通过在Ｔｉｍｅｒ事件过程中。首先在底
为黑色的窗体上随机画出许多白点（雪花），然后使这些雪
花不断地向下移动，反复循环，就成功地模拟了下雪的景
象，主要程序如下．
Ｄｉｍ Ｄ．Ｉ！（４５０，２）， ，ｉ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿Ｌｏａｄ（）
Ｒａｎｄｏｍｉｚｅ
ｎ一４５０
Ｆｏｒ／一ｌ Ｔｏ
ｍ（ ，Ｏ）：Ｒｎｄ＊Ｆｏｒｍ１．Ｗｉｄｔｈ
ｍ（ｉ，１）一Ｒｎｄ＊Ｆｏｒｍ１．Ｈｅｉｇｈｔ
ｍ（ ，２）：１０＋（Ｒｎｄ＊２０）
Ｎｅｘｔ
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｔｉｍｅｒ１
一
Ｔｉｍｅｒ（）
Ｄｉｍ ％，ｋ
Ｆｏｒ —ｌ Ｔｏ １５
Ｆｏｒ —ｌ Ｔｏ
Ｘ—ｍ（ ，Ｏ）
Ｙ一 ￡（ ，１）
ｍ（ｊ．１）一ｍ（ｊ，１）＋ｍ（ｊ，２）
Ｉｆ ｍ（ｊ，１）＞Ｆｏｒｍ１．Ｈｅｉｇｈｔ Ｔｈｅｎ
ｍ（ ，１）一０
ｍ（ ，２）一５＋（Ｒｎｄ＊３Ｏ）．
Ｅｎｄ Ｉｆ
ＤｒａｗＷｉｄｔｈ一２
ｋ＝５０＋８＊（ （ ，２）一１０）
和Ｈｅｉｇｈｔ属性。实现图像缩放．主要程序如下：
Ｏｐｔｉｏｎ Ｅｘｐｌｉｃｉｔ
Ｄｉｍ Ｗ，Ｈ
Ｄｉｍ Ｘ％，Ｙ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ Ｌｏａｄ（）
Ｗ—Ｉｍａｇｅ１．Ｗｉｄｔｈ
Ｈ—Ｉｍａｇｅ１．Ｈｅｉｇｈｔ
Ｘ—ｌ００
Ｙ—ｌ００
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｔｉｍｅｒｌ
—
Ｔｉｍｅｒ（）
Ｉｍａｇｅ１．Ｍｏｖｅ Ｉｍａｇｅ１．Ｌｅｆｔ—Ｘ／２，Ｉｍａｇｅ１．Ｔｏｐ—Ｙ／
２，一
Ｉｍａｇｅ１．Ｗｉｄｔｈ＋Ｘ，Ｉｍａｇｅ１．Ｈｅｉｇｈｔ＋Ｙ
Ｉｆ Ｉｍａｇｅ１．Ｌｅｆｔ＋Ｉｍａｇｅ１．Ｗｉｄｔｈ＞一Ｆｏｒｍ１．Ｗｉｄｔｎ Ｏｒ—
Ｉｍａｇｅ１．Ｔｏｐ＋Ｉｍａｇｅ１．Ｈｅｉｇｈｔ＞一Ｆｏｒｍ１．Ｈｅｉｇｈｔ Ｏｒ
—
Ｉｍａｇｅ１．Ｌｅｆｔ＜＝０ Ｏｒ Ｉｍａｇｅ１．Ｔｏｐ＜＝０ Ｔｈｅｎ
ｘ一一ｘ
Ｙ一——Ｙ
Ｅｎｄ Ｉｆ
Ｉｆ Ｉｍａｇｅ１．Ｗｉｄｔｈ＜一Ｗ Ｏｒ Ｉｍａｇｅ１．Ｈｅｉｇｈｔ＜一Ｈ Ｔｈｅｎ
ｘ一一ｘ
Ｙ一——Ｙ
Ｅｎｄ Ｉｆ
Ｅｎｄ Ｓｕｂ
４．２ 缩放文字
设置一个ｌａｂｌｅ对象，一个Ｔｉｍｅｒ对象．Ｉｎｔｅｒｖａｌ一３００，
通过在Ｔｉｍｅｒ事件过程中，处理ｌａｂｌｅ对象中字号的大小，
就可实现文字的缩放．程序如下：
Ｐｒｉｖａｔｅ Ｓｕｂ Ｔｉｍｅｒｌ—Ｔｉｍｅｒ（）
Ｉｆ Ｌａｂｅｌ１．ＦｏｎｔＳｉｚｅ＜一４５ Ｔｈｅｎ
Ｉ ａｂｅｌ１．ＦｏｎｔＳｉｚｅ—Ｌａｂｅｌ１．ＦｏｎｔＳｉｚｅ＋５
Ｅｌｓｅ
Ｌａｂｅｌ１．ＦｏｎｔＳｉｚｅ一１５
Ｅｎｄ Ｉｆ
Ｅｎｄ Ｓｕｂ
如果要停止以上的各类动画效果，只需设置Ｔｉｍｅｒ１．
Ｅｎａｂｌｅｄ—Ｆａｌｓｅ．以上程序都已经过ＶＢ６．０调试运行通
过．
参考文献：
［１］龚沛曾等．Ｖｉｓｕａｌ Ｂａｓｉｃ程序设计简明教程［Ｍ］．北京；高等教
育出版社，２００１．
［２３苏瑞等．Ｖｉｓｕａｌ Ｂａｓｉｃ开发实用编程２００例［Ｍ］．二ｆ匕京：中国铁
道出版，２００６．
［３］伍俊良．Ｖｉｓｕａｌ Ｂａｓｉｃ课程设计与系统开发案例［Ｍ］．北京；清
华大学出版社，２００２．
［责任编辑：盂立霞］
版权声明：本文标题：基于VB时钟控件的动画制作方法 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1710028657a554351.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论