VB中动画效果的实现

维普资讯

２００８年第８期　福建　电脑　１８９　

ＶＢ中动画效果的实现　

李艳　

（广东松山职业技术学院计算机系广东韶关５１２１２６）　

【摘　要】：在用ＶＢ开发应用程序时加入动画之后可使软件具有生动活泼的效果，有时动画效果必不可少。本文主要介　

绍在ＶＢ中应用Ｔｉｍｅｒ控件、Ｐｉｃｔｕｒｅ控件、ｓｈａｐｅ控件、ＰｉｃｔｕｒｅＣｌｉｐ控件来实现动画效果的关键技术、实现方法和操作步骤。　

【关键字】：ＶＢ动画　控件　方法　

一

、

构思　

动画由两个基本部分组成。一是物体相对于屏幕的运动，即　

屏幕级动画：二是物体内部的运动。即图片切换的动画。制作动　

画的原理就是画完一幅图形．清除它的屏幕显示部分。再在新位　

置画第二幅图形。如此交替下去。利用人眼的视觉效应，就可以　

产生动画效果．ＶＢ实现动画的原理也如此，但ＶＢ它不要求编　

程人员详细了解图形如何再现和清除．这些工作由ＶＢ提供的　

工具来做。这样就使ＶＢ实现动画很方便。编程也很简捷。在ＶＢ　

中不管是屏幕级动域．还是图片切换动画，其关键技术是用　

Ｔｉｍｅｒ控件来控制图形的移动或显示不同的图象而实现动画效　

果。　

二　关键技术　

Ｖｉｓｕａｌ　Ｂａｓｉｃ中的Ｔｉｍｅｒ控件计时器（Ｔｉｍｅｒ）控件能有规律地　

以一定的时间间隔激发计时器事件（Ｔｉｍｅｒ１而执行相应的事件代　

码．通过给计时器控件的Ｉｎｔｅｒｖａｌ属性设置不同的数值．就可以控　

制计时器运行的时问间隔　Ｔｉｍｅｒ控件只有在程序设计过程中可　

见。　

１．Ｔｉｍｅｒ控件的属性：　

Ｔｉｍｅｒ控件可以使用Ｎａｍｅ属性与Ｅｎａｂｌｅｄ属性．但最重要　

的是Ｉｎｔｅｒｖａｌ郎时间间隔属性　Ｉｎｔｅｒｖａｌ属性决定了时钟事件之　

间的间隔。以毫秒为单位，取值范围为０．６５５３５。如果把Ｉｎ’　

ｔｅｖｒａｌ属性设置为１０００．则表示每秒钟触发一个Ｔｉｍｅｒ事件。其　

语法格式．　

Ｔｉｍｅｒ．Ｉｎｔｅｒｖａｌ＝Ｘ。其中．Ｘ代表具体的时间间隔。　

２．Ｔｉｍｅｒ控件的Ｔｉｍｅｒ（定时）事件：　

当一个Ｔｉｍｅｒ控件经过预定的时间间隔．将激发计时器的　

Ｔｉｍｅｒ事件。使用Ｔｉｍｅｒ事件可以完成许多实用功能，如显示系　

统时钟、制作动画，等等。　

三　实例及其实现方法和操作步骤　

１．用Ｔｉｍｅｒ控件控制的移动技术。采用控制的移动技术可实　

现屏幕级动画．控制移动方式又可分两种：一是在程序运行过程　

中，随时更改控件的位置坐标Ｉｅｆｔ、Ｔｏｐ属性，使控件出现动态；　

二是对控件调用ＭＯＶＥ方法．产生移动的效果。　

例：如图１要求红色圆（控件名ｓｈａｐｅ１）绕着小孩（控件名　

图１运行阶段　图２设计阶段　

实现方法和步骤如下：　

１Ｉ１．启动ＶＢ，新建一个工程。在窗体添加名称为ｓｈａｐｅｌ的　

８ｈａｐｅ（即图形）控件，在属性窗口设置ｓｈａｐｅ属性为３，Ｆｉｌｌｃｏｌｏｒ属　

性为”＆ＨＦＦ＆”。再添加名称为ｃｏｍｍａｎｄｌ的命令按钮。在属性窗　

口设置Ｓｙｌｅ属性为１．Ｐｉｃｔｕｒｅ属性为有上面小孩的图片相应文　

件名本题为：ｚｂ／￣．ｊｐｇ。再添加名称为Ｔｉｍｅｒｌ的计时器控件，在　

属性窗口设置Ｉｎｔｅｒｖａｌ属性为１０００．Ｅｎａｂｌｅｄ属性为Ｔｒｕｅ。如图　

２。　

１、２．设计控件Ｔｉｍｅｒ１的Ｔｉｍｅｒ事件过程代码。因为本题的关　

键是用ＶＢ中的Ｔｉｍｅｒ控件控制Ｓｈａｐｅｌ在屏幕中相应位置的移　

动．其实就是Ｔｉｍｅｒ事件过程代码的编写。在Ｔｉｍｅｒｌ的Ｔｉｍｅｒ事　

件中编写如下代码：　

Ｐｒｉｖａｔｅ　ＳｕｂＴｉｍｅｒｌ

—　

ｒｎｅｒ０　

Ｉｆ　Ｓｈａｐｅ１．　＜＝Ｃ￣ｍｍａｎｄ１．Ｌｅｆｔ＋Ｃｏｍｍａｎｄ１．Ｗｉｄｔｈ　Ａｎｄ　Ｓｈａｐｅ１．Ｔｏｐ＞＝　

Ｃｏｍｍａｎｄ１．Ｔｏｐ＋Ｃｏｍｍａｎｄ１．Ｈｅｉｇｈｔ　Ｔｈｅｎ　

ＳｈａｐｅＩ．Ｉ　ｆｌ＝Ｓｈａｐｅ１．Ｌｅｆｔ　４－４ＯＯ　使ＳｈａｐｅＩ往右移动　

Ｅｌｓｅｉｆ　Ｓｈａｐｅ１．Ｔｏｐ＋Ｓｈａｐｅ１．Ｈｅｉｇ｝ｌｔ＞＝Ｃｏｍｍａｎｄ１．Ｔｏｐ　Ａｎｄ　ＳｈａｐｅＩ．Ｌｅｆｔ＞　

Ｃｏｍｍａｎｄ１．Ｌｅｆｔ　Ｔｈｅｎ　

ＳｈａｐｅＩ．Ｔｏｐ＝Ｓｈａｐｅ１．Ｔｏｐ一４ＯＯ　使ＳｈａｐｅＩ往上移动　

ＥｌｓｅＩｆ　Ｓｈａｅｐ１．Ｉ血４－Ｓｈａｐｅ１．Ｗｉｄｔｈ＞：Ｃｏｍｍａｎｄ１．Ｌｅｆｔ　１１１ｅｎ　

ＳｈａｅｐＩ．Ｌｅｆｔ＝Ｓｈａｐｅ１．Ｌｅｆｔ　４ＯＯ　使Ｓｈａｐｅｌ往左移动　

Ｅｌｓｅ　

Ｓｈａｐｅ１．Ｔｏｐ＝Ｓｈａｐｅ１．Ｔｏｐ　４－４０Ｏ　使Ｓｈａｐｅｌ往下移动　

Ｅｎｄ　Ｉｆ　

Ｅｎｄ　Ｓｕｂ　

１＿３．按Ｆ５就可以看到图１中红色圆绕着小孩不停地跑的动　

画效果。　

２、用ＰｉｃｔｕｒｅＣｌｉｐ控件实现动画。将ＰｉｃｔｕｒｅＣｌｉｐ控件与Ｐｉｃ．　

ｔｕｒｅ控件或Ｉｍａｇｅ控件及Ｔｉｍｅｒ控件的组合来完成动画。Ｐｉｃ．　

ｔｕｒｅＣｌｉｐ控件只有一张图片。将此图片平均分成若干区域，然后　

在程序设计时利用选择控制中的区域．将图动态剪切下来放置　

于图片框中进行显示（即将指定的区域赋值给一个显示控件的　

有关属性．如ｐｉｃｔｕｒｅ控件的ｐｉｃｔｕｒｅ属性）。程序控制每间隔一定　

时间剪切并显示一幅图，这样便可产生动画效果。在ＶＢ　６．０中　

用ＰｉｃｔｕｒｅＣ１ｉＤ控件实现动域的具体方法和步骤如下：　

２．１Ｉ装入Ｐｉｃｔｕｒｅ￣Ｄ控件：在工具箱中击鼠标右键一选中”　

部件“＿＋Ｍｉｃｒｏｓｏｔｆ　ＰｉｃｔｕｒｅＣｌｉＤ　ｃｏｎｔｒｏｌｓ　６．ｏ＿　然后点击”确定”键即　

可。　

２．２．将ＰｉｃｔｕｒｅＣｌｉｐ控件添加到窗体上。按Ｆ４键显示属性窗　

口．双击．．自定义”属性则出现一个”属性页”对话窗口。选取”图　

片”项。单击”测览”选定一个图片。选取一个图片后我们在“预　

览”框中就可以看见图片全貌。选择”通用属性”项，定义好”　

行“、”列“的值ｆ如”４”、…４’），划分好图形区域。　

２．３．将Ｐｉｃｔｕｒｅ控件添加到窗体的相应位置上调整大小，放　

在窗体中指定的位置，将ＰｉｃｔｕｒｅＣｌｉｐ控件中指定区域，赋值给显　

示控件的ｐｉｃｔｕｒｅ属性，便可以显示图形了．设ＰｉｃｔｕｒｅＣｌｉｐ控件　

区域值为一变量。添加个Ｔｉｍｅｒ控件，并在此控件中的ｔｉｍｅｒ事件　

中用循环语句改变此变量．就可以实现动画了。在运行时Ｐｉｃ．　

ｔｕｒｅＣｌｉｐ控件和Ｔｉｍｅｒ控件是不可见的。　

２．４．在窗体中编写如下代码：　

Ｄｉｍ　ａ　Ａｓ　Ｉｎｔｅｇｅｒ　在窗体模块中　通用　的　声明　中定义ａ变量　

ｐｒｉｖａｔｅ　Ｓｕｂ　Ｆｏｒｍ＿Ｌｏａｄ０　

指定ｐｉｅｔｕｒｅｌ的图形为ＰｉｃｔｕｒｅＣｌｉｐ控件中的第二个图形区域　

ｐｉｃｔｕｒｅ１．ｐｉｅｔｕｒｅ＝ＰｉｅｔｕｒｅＣｌｉｐＩ．ＣｒａｐｈｉｅＣｅｌｌ０）　

ａ＝ｌ　

Ｔｉｍｅｒ１．Ｉｎｔｅｒｖａｌ＝ｌ００　

Ｅｌａｄ　Ｓｕｂ　

２＿５．在Ｔｉｍｅｒ控件中的Ｔｉｍｅｒ事件中缩写如下代码：　（下转第１４８页）　

维普资讯

１４８　福建　电脑　２００８年第８期　

础上实现ＴＣＭＰ三层协议的模拟．包含应用层到ＴＣＰ层．再到　

ＯｎＲｅａｄ中．调用方法传递的Ｓｏｃｋｅｔ值就是响应该事件的对象属　

ｉｅｎｔＳｏｃｋｅｔ．Ｓｏｃｋｅｔ。同样。在ＳｅｒｖｅｒＳｏｃｋｅｔ的事件ＯｎＣｌｉｅｎ．　

ＩＰ层以及网络接口层的模拟．其实也就是按这三层协议进行报　

性Ｃｌ

Ｒｅａｄ中．调用方法传递的参数Ｓｏｃｋｅｔ就是对应于当前发送数　

文的打包和解包。程序的编制是利用Ｄｅｌｐｈｉ７提供的　

ｔ

ｅｌｉｅｎｔＳｏｃｋｅｔ和ｓｅｒｖｅｒＳｏｃｋｅｔ将字符串类型的数据在同一局域网　

据客户端的唯一的Ｓｏｃｋｅｔ连接。　

结束语　

内发送。Ｓｏｃｋｅｔ通信在Ｗｉｎｄｏｗｓ中是排队的形式，由操作系统处　

４、

理．而且接收方和发送方相互协同工作，否则就会造成数据丢　

失。另外。和所有的通信编程一样．ＳｏｃｋｅｔＳｏｃｋｅｔ编程也遵循数据　

分包传送这一基本规则。也就是说，在Ｓｏｃｋｅｔ编程中。每次发送　

和接收一个包。以保证数据传输的安全性和稳定性，同时也不至　

于过多地占用系统资源。对于ＣｈｅｎｔＳｏｃｋｅｔ组件。它用于请求方。　

也就是说．它的动作是主动地建立连接。ｓｅｒｖｅｒＳｏｃｋｅｔ组件用于　

响应方。它的动作是侦听以及被动接受连接。组件ＣｌｉｅｎｔＳｏｃｋｅｔ　

关系。并且仅当ｓｅｒｖｅｒＳｏｃｋｅｔ对其接受才表示建立连接。组件　

ＳｅｒｖｅｒＳｏｃｋｅｔ的属性是动态的　伴随着一个新的ＣｌｉｅｎｔＳｏｃｋｅｔ与　

随着多媒体应用领域的不断扩展．特别是分布式多媒体应　

用的逐渐成熟．多媒体通信对多媒体通信网络提出了很高的要　

求。大容量的媒体数据在网上的实时传输对窄带网络和包交换　

协议提出了挑战　人们一直关注着那些能够满足交互式和实时　

多媒体通信要求的网络技术的发展。多媒体网络技术的进展将　

直接影响”信息高速公路”的建设速度．并将对人类的生活和生　

产方式产生深远的影响　综上所述下一步在语音实时通信系统　

的属性是相对静态的。它和ｓｅｒｖｅｒＳｏｃｋｅｔ之间只是连接和断开的　

的基础上实现多媒体的实时通信　

参考文献：　

之建立连接的同时．就会产生一个新的Ｓｏｃｋｅｔ与该ＣｈｅｎｔＳｏｃｋｅｔ　

１．ｃ￣ｕａｗ　Ｆｏｘ．Ｐｅｅｒ—ｔＯ—ＰｅｅｒＮｅｔｗｏｒｋｓ历．ｗｃｂ　Ｃｏｍｐｕｔｉｎｇ，２００１，５　

Ｄａｎａ　Ｍｏｏｒｅ。Ｊｏｈｎ　Ｈｅｂｄｅｒ．Ｐｅｅｒ　Ｔｏ　Ｐｅｅｒ．ＭｃＧｒａｗ—Ｈｉｌｌ　Ｃｏｍｐａｎｉｅｓ，Ｉｎｃ　

对应，保持单独的连接。进行单独的通信。因此，在同一个　

２．

４　

ＳｅｒｖｅｒＳｏｃｋｅｔ中．可以与多个ＣｌｉｅｎｔＳｏｃｋｅｔ保持同时连接和各自　

２００３．

基于ＴＣＰ／ＩＰ协议的点对点通信Ⅱ】．洛阳师范学院报．　

独立的通信。ｓｅｒｖｅｒＳｏｃｋｅｔ的属性Ｓｏｃｋｅｔ　ＡｃｔｉｖｅＣｏｎｎｅｃｆｉｏｎｓ用于　

３．李元｛，刘堆群．

表示客户端连接的数量；属性Ｓｏｃｋｅｔ。Ｃｏｎｎｅｃｔｉｏｎｓｅｎｄｅｘ１用于访　

４．李元臣．刘雏群．ＤＥＬＰＨＩ下的多线程应用程序Ⅱ】．洛阳师范学院学报．　

问单个与ＣｌｉｅｎＳｏｃｋｅｔ连接的Ｓｏｃｋｅｔ。在独立的ＣｈｅｎｔＳｏｃｋｅｔ中。　

属性Ｓｏｃｋｅｔ。Ｄａｔａ是一个指针，缺省值是ｎｄ；在ＳｅｒｖｅｒＳｏｃｋｅｔ的　

ｓｈｔｍｌ　

５．Ｐ２Ｐ技术概笕．ｈｔｔｐ：／／ｗｗｗ．ｙｅｓｌ【ｙ．ｃｏｍ／２ｏｏ１Ｏ９２６／１９８８４８

１．

每个独立的Ｓｏｃｋｅｔ。ＣｏｎｎｅｃｔｉｏｎｓＯｎｄｅｘ］中．属性Ｄａｔａ也是一个指　

６．张联峰．刘乃安等．对等同Ｐ２Ｐ技术Ⅱ】．计算机工程与应用．２００３．１２　

针，缺省值是ｎｉｌ。因此．可以通过该指针建立并保存各自独立的　

７．李元臣．基于ＡＳＰ的Ｉｎｔｅｒａｃｔ应用程序开发洛阳师范学院学报Ⅱ】．２００３．　

—

２００２．２　’　

２０００．２　

相关信息，用于实现各自独立的通信。而在ＣｌｉｅｎｔＳｏｃｋｅｔ的事件　

（上接第１５１页）　

５　

－—－　－＋－＋一＋－＋一十　

（３）把含有ｓｑｈｔｅ应用程序的ｍｍｆｓ下载到Ｓ３Ｃ２４１０ｕＣＬｉｎ．　

ＵＸ上的ｔｍｐ目录（此目录必须是可读写的），运行Ｓｑｌｉｔｅ即可，现　

在Ｓｑｌｉｔｅ已经可以在ａｒｍ／ｌｉｎｕｘ下跑起来．创建一个ｔｅｓｔ表进行　

文档供参考．对于想进一步研究关系数据库实现细节的学生，阅　

读ＳＱＬｉｔｅ源代码是个不错的方法。　

５、ＳＱＬｉｔｅ在嵌入式操作系统在ｕＣ／ｉｎＵＸ下的移植测试　

ＳＱＬｉｔｅ是一个通用的免费嵌入式数据库，为了将ＳＯＬｉｔｅ应　

测试。语句如下：　

Ｓｑｌｉｔｅ＞ｃｒｅａｔｅ　ｔａｂｌｅ　ｔｓｔｅ（ｎａｍｅ　ｖｔｔｒｅｈａｒ（２０）．ｏｕｒｎ　ｓｍａｌｌｉｎｔ）；　

用到￥３Ｃ２４１０＋ＬｉｎＵＸ环境中．首先需要把ＳＱＬｉｔｅ移植到　ｕｘ　

ｓｑｌｉｔｅ＞ｉｎｓｅｒｔ　ｉｎｔｏ　ｔｅｓｔ　ｖ　ｕｅ　ＡＭＥｌ　．１）；　

平台上，然后再将ＳＱＵｔｅ编译成Ｌｉｎｕｘ下的一个普通应用程序．　

ｓｑｌｉｔｅ＞ｉｎｓｅｒｔ　ｉｎｔｏ　ｔｅｓｔ　ｖ　ｕｅ　ＮＡＭＥ２＂，２）；　

就可以通过嵌入式Ｃ和ＡＰｔ开发具体的应用程序。移植测试的　

Ｓｑｌｉｔｅ＞ｓｅｌｅｃｔ　３　ｆｒｏｍ　ｔｅｓｔ；　

主要步骤如下：　

ＮＡＭＥｌｌｌ　

ＮＡＭＥ２１２　

（１）将下载的ｋｎ山【版本的ＳＱＬｉｔｅ软件包解压到ｕＣｈｎｕｘ—　

ｄｉｓｔ／ｕｓｅｒ目录。　

Ｓａｌｉｔｅ＞ｔａｂｌｅｓ　

Ｔ　６ｔ　

ｓｑｌｉｔｅ＞ｑ　

（２）完成用户应用程序的如下设置：　

在ｕＣｈｎｕｘ－ｄｉｓｔ／ｕｓｅｒ／Ｍａｋｅ／ｄｅ、ｕＣｈｎｕｘ－－ｄｉｓｆｆＣｏｎｆｉｇｕｒｅ．ｈｅｌｐ、ｕ．　

６、结束语　

本文介绍了ＳＱＬｉｔｅ数据库的技术特点、体系结构、应用领　

的下面加上Ｓｑ１ｊｔｅ项，把Ｓｑｈｔｅ添加为ｕＣ　ｕｘ的一个新Ｕｓｅｒ－　

域以及在ｗｉｎｄｏｗｓ和嵌入式Ｌｉｎｕｘ下的开发应用．重点研究了　

ｅｔｓｔｉｎｇ项。再选中”ＭｉｓｅｅＩｌａｎｅｏｕｓ　Ａｐｐｈｃａｆｉｏｎｓ”。　

ＳＱＬｉｔｅ数据库的编译、移植和嵌入式数据库应用程序的开发等　

在ｕＣｌｉｎｕｘ中修改ｓｑｈｔｅ／ｍａｉｎ．ｍｋ、ｓｑｌｉｔｅ／ｓｒｃ／ｏｓ．ｅ、ｓｑｈｔｅ／ｓｒｃ／　

内容，基于ＳＱＬｉｔｅ开发应用程序比较简单，在嵌入式应用中有　

ｓｈｅＨ．ｅ三个文件和添加ｓｑｌｉｔｅ／Ｍａｋｅｆｉｌｅ文件．从而按照ｕＣｌｉｎＵＸ—　

很好的前景。　

Ｃｈｎｕｘ－－ｄｉｓｔ／ｅｏｎｆｉｇ　ｉｎ三个文件中查找”ｃｐＵｔｔ有关选项．然后在它　

ｄｉｓｔ／Ｄｏｃｕｍｅｎｔａｔｉｏｎ／Ａｄｄｉｎｇ—Ｕｓｅｒ—Ａｐｐｓ—Ｈ０Ｗ．ｒＯ的说明添加　

Ｓｑｌｉｔｅ作为一个用户应用程序．将其作成一个Ｓｈｅｔｌ。　

＿

参考文献：　

通过ｍａｋｅ　ｄｅｐ、ｍａｋｅ　ｌｉｂ

ｏｎｌｙ、ｍａｋｅ　ｕｓｅｒ　ｏｎｌｙ、ｍａｋｅ　ｒｏｔｏｒｓ、　

１．金恩海．嵌入式数据库系统设计与实现Ⅱ】．信息技术，２００６（５）：１８１￣１８３　

机与嵌入式系统应用．２００５（４）：２１￣２４　

黄布教，张晓华．基于ＡＲＭ２Ｌｉｎｕｘ的ＳＱＬｉｔｅ嵌入式数据库技术Ｄ】．单片　

ｍａｋｅ　ｉｍａｇｅ等操作编译ｕＣｌｉｎｕｘ的ｋｅｒｎｅ１．并在ｕＣｌｉｎｕｘ－－ｄｉｓｔ／ｉｍ．　

２．

ａｇｅｓ下生成包含有ｓｑｌｉｔｅ的ｍｍｆｓ文件系统。　

－－－

４－　

（上接第１８９页）　

ＰｒｉＶａｔｅ　Ｓｕｂ　Ｔｉｍｅｄ

Ｔｉｍ￣，Ｏ　

—

对于那些对ＶＢ动画制作感兴趣的人有很大的帮助。　

参考文献：　

１．＜ｖｉｓｕ｜ｌＢａｓｉｃ　６．０中文版入门与提高）张树兵戴红陈哲嫡著确

京：清华大学出版社　

北　

ａ＝ａ＋ｌ　每发生一次　ｎ　事件时改变变量ａ的值　

Ｉｆ　ａ＝１６　Ｔｈｅｎ　ａ＝０　利用变量值的改变给Ｄｉｃｔｕｒｅｌ控件指定不同的图形　

ｐｉｅｔｕｒｅ１．ｐｉｃｔｕｒｅ＝Ｐｉｃｔｕｒｅ．ＣｌｉｐＩ．ＧｒａｐｈｉｃＣｅｌｌ（ａ）　

Ｅｎｄ＆由　

２．６按Ｆ５就可以看到动画效果了　

结柬语　

２．＜Ⅵｓｕ　Ｂ　ｃ　６．０程序设计）　赵万龙蝙著　北京：中国铁道出版社　

一一Ｖｉｓｕａｌ　Ｂ　ｃ　６．０语言程序设计）刘炳文扬明福陈　（－－／￣教程…

本文给出了在ＶＢ中实现动画效果的关键技术、几种不同　

３．

的实现方法的操作步骤，做出了各种生动活泼的动画效果。相信　

定中嫡著