基于VB的动画技术

维普资讯

２００７年第１期　福建电脑　１３９　

基于ＶＢ的动画技术　

ｆ　

卢向华，张建建　、　

（洛阳工业高等专科学校计算机系河南洛阳４７１００３）　

【摘要】：本文主要阐述在ＶＢ编程环境中实现动画的原理，并通过程序示例介绍用ＶＢ创建动画的方法。　

【关键宇】：动画；图像；￣４ｑ－；属性　

在利用ＶＢ开发应用程序的过程中．动画的制作是很常用　

Ｉ出ｅＩｌ，Ｍｏｖｅ　０．￣ｂｅｌ１．Ｔｏｐ　

的，特别是用ＶＢ编制一些游戏软件，模拟复杂的生产过程，ＣＡＩ　

教学的演示等。动画就得尤其重要。在开发ＶＢ应用程序时。常　

使用以下方法创作动画。　

１．使用控件通过加载图像实现动画　

动画是一种运动的模拟．其实现方法是在屏幕上快速地显　

示一组组相美的图像．编程时可以采用帧动画原理，即通过一系　

列静态图辅之以连续快速变化产生动画效果．也可以通过１￣Ｉｏｖｅ　

方法改变图形对象的Ｔｏｐ及Ｌｅｆｔ属性移动图形来实现．动画的　

速度使用时钟来控制。用这种方法实现动画的基础是图像的显　

示和使图像快速、定时地移动或变化。利用ＶＢ中的ＩｍａｇｅＬｉｓｔ、　

ＰｉｅｔｕｒｅＢｏｘ等控件，通过加入序列图像．用定时器控件的Ｔｉｍｅｒ　

事件进行控制．以显示此序列图中不同的图像来达到动画效果。　

１．用Ｍ０ｖｅ方法实现动画　

利用人眼的视觉暂停现象．连续移动控件和改变控件的大　

小可实现动画。一幅图像的位置不断变化而形成的动画称为单　

帧动画。如滚动字幕，云彩被风吹动等，这种动画通常是在Ｔｉｍｅｒ　

事件过程中调用控件的Ｍ州ｅ方法控制图像的位置移动来实现　

的。ＶＢ中许多控件都能够被移动或改变大小。通过改变控件　

Ｔｏｐ．Ｌｅｆｔ属性值可以实现控件位置的变化．控件大小变化是通　

过改变控件的Ｗｉｄｔｈ、Ｈｅｉｇｈｔ属性值实现的。在演示过程中，用　

Ｍｏｖｅ方法不断改变这些属性．就产生了控件移动的动画效果。　

我们在利用Ｍｏｖｅ方法实现动画时．通常和Ｔｉｍｅｒ控件联用来改　

变图形的大小和位置实现动画效果　

下面用ＭＯ＇ＶＣ方法来实现文字移动。利用一个标签显示一　

文字。程序启动时，用鼠标左键点击文字，则这行文字将开始飘　

动，如碰到窗体的边界，将改变移动方向；再用鼠标左键点击文　

字．则将停止移动。　

程序代码如下：　

Ｄｉｍ　ＩｓＰｌａｙｉｎｇ　Ａｓ　Ｂｏｏｌｅａｎ　动域是否启动　

Ｄｉｍ　ＤｅｔｎＸ％．ＤｅｔａＹ％　沿Ｘ、Ｙ轴的移动位置增量　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｆｏｍ　１０８ｄ０　

ＩｓＰｌａｙｉｎｇ＝Ｆａｌｓｅ　开始时．动ｉ圄ｉ未启动　

ＤｅｔａＸ％＝１００　沿Ｘ轴的移动位置增量为ｌｏ０单位　

ＤｅｔａＹ％＝１００　滑Ｙ轴的移动位置增量为１ｏ０单位　

Ｅｎｄ　ＳｌＪｈ　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ｌａｂｅｌｌ－ｃＨｃｋＯ　用鼠标左键点击了标签　

ｌｆｌ８ＰｌＨｙｉｎｇ　ｒｎＩｅｎ　动域已启动．则停止　

Ｉ￣Ｐｌａｙｉｎｇ　ｚ　ＦａｌＢｅ　

Ｔｉｍｅｒ１．Ｅｎａｂｌｅｄ＝Ｉ８Ｐｌａｙｉｎｇ　

ＥＩｓｅ　动画束启动．则启动　

ＩｓＰｌａｙｉｎｇ＝Ｔｒｕｅ　

ＴｉｍｅｒＩ．Ｅｎａｂｌｅｄ＝ＩｓＰＩａｙｉｎ；ｌ　

ＥｎｄＩｆ　

Ｅｎｄ　Ｓｕｂ　

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

—

ＴｊｍｅＩｏ　Ｔｉｍｅｒ事件，移动ｌａｂｅｌｌ对象　

ｌ￣：Ｊｅｌ１．ＶＩＩｏｖｅ　Ｉａｂｅｌ１．Ｌｅｆｔ＋Ｄｅｔｔ￣Ｘ％．１ａｂｅｌ１．Ｔｏｐ＋Ｄｅｔａ￣％　

。

碰到边界．则校正位置．并反向　

Ｉｆ　ＩａｂｅＩ１．　ｎ＋Ｉａｂｅｌ１．Ｗｉｄｔｈ）＝Ｆｏｍ１．Ｗｉｄｔｈ　Ｔｈｅｎ　碰到右边界　

ｌａｂｅｌ１．Ｍｏｖｅ　Ｆｏｒｍ１．Ｗｉｄｔｈ—ｌａｂｅｌ１．Ｗｉｄｔｈ．１ａｂｅｌ１．Ｔｏｐ　

Ｄｅｕ￣Ｘ％｛－ＤｅｔａＸ％　

Ｅｌ￣ｅｌｆ　ｌ￣ｅｌ１．Ｔｏｐ＋ｌａｂｅＩｌ，Ｈｅｉｇｈｔ）．　Ｆ￣ｒｍ１．Ｈｅｉｇ【ｈｔ　Ｔｈｅｎ　碰到上边界　

ｌａｂｅｌ１．Ｍｏｖｅ　ｌａｂｅｌ１．Ｌｅｆｔ，Ｆｏｒｍｌ，Ｈｅｉ曲ｔ—ｌａｂｅｌＩ，Ｈｅｉ　ｇ｝Ｉｔ　

ＤｅｍＹ％＝一ｎｅｔａＹ％　

Ｅｌｓｅｌｆ　ｌａｂｅｌ１．ｈｆｔ　０　０　Ｔｈｅｎ　碰到左边界　

ＤｃｔａＸ％　一ＤｅＵ￣Ｘ％　

Ｅｌ￣ｅｆｆ　ｌａｂｅｌｌ，Ｔｏｐ《＝０　Ｔｈｅｎ　碰到下边界　

ｌ丑ｂｅＩ１．Ｍｏｖｅ　ｌ￣ｅｌ１．Ｌｅｆｔ．０　

ＤｅｔａＹ％鼻一ＤｅｔａＹ％　

ＥｎｄＩｆ　

Ｅｎｄ　Ｓｕｂ　

注意，文字碰到边界而反向移动。是通过改变ＤｅｔａＸ％、Ｄｅ．　

ｒａＹ％的符号来实现的。　

２　利用显示不同的图象实现动画　

一

般动画是利用视觉差来实现的．即在短时间内顺序播出　

一

系列有关联性的图片．让收看者感觉到画面内容动起来的效　

果。自然界的运动大多数都具有多帧位移的特点。即在位置移动　

的同时，状态也在发生变化，如蝴蝶在空中飞舞。蝴蝶的位置在　

变化，同时翅膀也在扇动。这种通过一系列静态图辅之以连续变　

化来产生动画效果需要在Ｔｉｍｅｒ事件过程中同时处理ｉｍａｇｅ对　

象的图像更替和位置移动。利用这种方法实现动画只要获得一　

幅幅动画单幅图像文件，把它们放入图像控制数组中去．便可以　

用时钟控件的控制属性Ｉｎｔｅｒｖ．Ｉ来控制每幅图片显示的间隔。在　

把最终动画显示的位置确定好后．按时问间隔依次从图像控制　

数组中取出一幅显示，如此交替反复显示．产生了动画效果。下　

面的程序是通过改变图形形状演示一个陀螺在图形框内转动。　

程序代码：　

Ｄｉｍ　ｙ　ＡｓＩｎｔｅｇｅｒ　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ｒ￣ｎｔｏｐ０　

Ｓｔａｔｉｅ　Ｙ　Ａｓ　Ｉｎｔｅｇｅｒ　

Ｙ＝Ｙ＋１：Ｉｆ　Ｙ。１８Ｔｈｅｎ　Ｙ　０　指定陀螺的某张图片　

Ｐｉｅｔｕｒｅ１．Ｐｉｃｔｕｒｅ＝Ｉｍｇｅｌ　．Ｐｉｃｔｕｒｅ　图形框装人某张图片　

Ｆ￣ｒｍ１．Ｉｃｏｎ＝Ｉｍａｇｅｌ　．Ｐｉｃｔｕｒｅ　窗体的Ｉｃｏｎ属性装人图片　

Ｅｎｄ　Ｓｕｂ　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｃｏｍｍ　ｎｄ１＿Ｃｌｉｃｋ０　

Ｉｆ　Ｃｏｎ￣，ｎａｎｄ１．Ｃａｐｔｉｏｎ＝“转动”Ｔｈｅｎ　

Ｃｏｍｍａｎｄ１．Ｃａｐｔｉｏｎ＝“停止”　

Ｅｌｓｅ　

Ｃｏｍｍａｎｄ１．Ｃａｐｔｉｏｎ　・・转动“　

ＥｒＩｄ　Ｉｆ　

Ｅｎｄ　Ｓｕｂ　

Ｐｒｉｖａｔｅ　Ｓｕｂ　１３ｍｅｒｌ＿＇ｒｉｍｅｒｏ　

Ｉｆ　ＣｏｍａｎｄＩ．Ｃａｐｔｉｏｎ＝”停止”Ｔｈｅｎ　ｍｎｔｏｐ　

Ｅｎｄ　Ｓｕｂ　

２．借助图形方法由程序动态产生动画　

Ｖｉｓｕ－Ｉ　Ｂａｓｉｃ是一个功能强大的面向对象的编程环境．使用　

它所提供的图形方法．如Ｐｓｅｔ、Ｌｉｎｅ、Ｃｉｒｌｃｅ、Ｃｌ８可以在各种事件　

过程中画出包括点、直线、圆（椭圆）、圆弧以及由他们构成的几　

何图形。如果把图形方法用于时问事件。可得到与时间参数相关　

的运动变化的图形．即可以创建动画。用图形方法创建动画是通　

过完成算法来实现的。即动画由程序直接创建，因此动西的制作　

过程简单、编程性强、可控制性好，能够很容易地对动画的路径、　

行为、参数进行控制。使用这种方法创建动画。首先在Ｔｉｎ１ｅｒ事　

件使用图形方法中的Ｐｓｅｔ、Ｌｉｎｅ、Ｃｉｒｃｌｅ、Ｃｌｓ等方法在绘图区创建　

图形．可以在绘图区画出运动的点、直线、圆（或椭圆）、圆弧及各　

种形状的填充区。再结合颜色参数，还可以创建动态立体图形。　

但是由于图形不会自动清除．所以还需要根据动画演示的时间、　

速度等因素．在＇ｒｉｍｅｒ事件中使用Ｃｌｓ方法，在适当的时间间隔　

内将上次事件中所创建的图形擦除，在Ｔｉｍｅｒ（下转第１４５页）　

维普资讯

２ｏｏ７年第１期　福建　电脑　１４５　

ＣａｅａｔｅＸＭＬＦ＇ｄｅ０　如果两个ｘｍｌ文件不存在。则甸建这两个ｘｍｌ文件　

Ｍｅ．ＤａｔａＧｒｉｄＶｉｅｗｔ　

Ｅｎｄ　Ｉｆ　

ｂｔｎＳａｖｅ＿Ｃｌｉｅｋ（ｓｅｎｄｅｒ，ｅ】　

接着，定义一系列的变量。以存放两个ｘｍｌ文件的具体位　

Ｅｎｄ　Ｓｕｂ　

置，如下代码：　

２．４学生的增加和编辑　

Ｄ．啪ｍｙＤｏｅｕｍｅｎｔｓＦｏｌｄｅｒ　Ａｓ　Ｓｔｉｒｎｇ＝Ｍｙ。Ｃｏｍｐｕｔｅｒ．ＦｄｅＳｙｓｔｅｍ．ＳｐｅｃｌａｌＤｉｒｅｅｔｏ－　

我们要为ｂｍＥｄｉｔＡｄｄＳｔｕｄｅａｔ这个按钮编写相关代码。新建　

ｉｔｅｓ．

一

．．　

个窗体ｆｒｍＥｄｌｔＡｄｄＳｔｕｄｅｎｔｓ，在这个窗体中，可以添加删除学　

ＭｙＤｏｅｕｍｅｎｔｓ　

Ｄｉｍ　ｓｅｏｒｅｓＦｉｌｅＮａｍｅ　Ａｓ　Ｓｔｒｉｎｇ　”ｋｓｃｏｍｓ．ｘｎｄ”　

生。首先，拖拉一个ＤａｔａＧｒｉｄＶｉｅｗ控件，增加两个按钮分别命名　

Ｄｉｍ　ｓｔｕｄｅｎｔｓＦｉｌｅＮａｍｅ　Ａ８　Ｓｔｒｉｎｇ　”￣ｓｔｕｄｅｎｔｓ．ｘｍｌ　

为ｂｔｎＳａｖｅ和ｂｔｎＤｄｅｔｅ。　

Ｐ￣ｌｉｃ　ｅ￣ｏｒｓｅＦｉｌｅ　Ａｓ　Ｓｔｒｉｎｇ　Ｓｔｒｉｎｇ．Ｃｏｎｃａｔ（ｍｙＤｏｃｕｍｅｎｔｓＦｏｌｄｅｒ，ｓｅｏｒｅｓＦｉｌｅ－　

该窗体的１０ａｄ事件中，写入如下代码：　

Ｎａｍｅ）　

Ｐｕｂｌｉｃ　ｓｔｕｄｅｎｔｓＦｉｌｅ　Ａ８　Ｓｔｒｉｇｎ｛Ｓｔｒｉｎｔｔ．Ｃｏｎｃａｔ（ｍｙＤｏｅｕｍｅｎｔｓＦｏｌｄｅｒ，一　

ｓｔｕｄｅｎｔｓＦｉｌｅＮａｍｅ）　

ＤａｔａＧｒｉｄＶｉｅｗ１．ＤａｔａＭｅｍｂｅｒ　ｆ　ｃｅ６．Ｄｓｓｔｕｄｅａｔｓｅｏｔｅ，ｓｔｕｄｅｕｔｓＸａｂｌｅＮｍｎｅ０　

注意其中一个用法Ｍ　．Ｃｏｍｐｕｔｅｒ．ＦｉｌｅＳｙｓｔｅｍ．ＳｐｅｃｉａｌＤｉｒｅｃｔｏ．　

将ＤａｔａＧｆｉｄＶｉｅｗ绑定到ＤａｔａＳｅｔ的ｓｔｕｄｅｎｔｓ文件中去。注意　

８．ＭｙＤｏｃｕｍｅｎｔｓ返回当前计算机上”我的文档”的具体位置。　

这时以ｆｎｎｓｃｏｒｅｓ．Ｄｓｓｔｕｄｅｎｔｓｃｏｒｅ的形式调用的，因为该Ｄａｔ￣ｅｔ　

这里，将两个文件保存到”我的文档”中去。并且用ｓｃｏｒｅｓＦｉｌｅ和　

是在第一个窗体中　批ｏ１－ｅｓ中设立的。　

ｓｔｕｄｅｎｔａＦｉｌｅ变量，保存两个ｘｍｌ文件实际存取的路径。接下来是　

接着，为保存ｓａｖｅ按钮编写代码：　

相关几个过程的代码如下：　

Ｐｈｂｌｉｃ　Ｆｈｎｃ‘ｉｏｎ　ＣｈｅｃｋＦｉｌｅＥｘｌｓｔｅｎｅｅ０　Ａｓ　Ｂｏｏｌｅａｎ　

Ｓｙｓｔｅｍ．Ｄａｔａ．ＸｍｌＷｒｉｔｅＭｏｄｅ．Ｗｒｉｔｅｓｕｈｅｍａ）　

检查两个ｘＩｌＩｌ文件是否存在　

而删除按钮ｄｅｌｅｔｅ的代码也一样简单：　

Ｉｒ　Ｍｙ．Ｃｏｍｐｕｔｅｒ．ＦｄｅＳｙｓｔｅｍ．ＦｉｈＥｘｉｓｔｓ（ｅｓｏｒｅｓＦｉｌｅ）Ａｎｄ—　

Ｍｙ．Ｃｏｍｐｕｔｅｒ．ＦｄｅＳｙｓｔｅｍ．ＦｉｌｅＥｘｉｓｔ￣ｌ（ｓｔｕｄｅｎｔ￣Ｆｉｌｅ）Ｔｈｅｎ　

ｉｅｗｔ．ＣｕｒｍｎｔＰａ￣．Ｉｄｎ．）　

Ｒｅｔｕｒｎ　Ｔｒｕｅ　

ｂｔ幽ｖｅ＿Ｃ　ｃｋ（蛳ｄｅｒ．ｃ）　

Ｅｌｓｅ　

最后，在ｆｒｍｓｅｏｒｅｓ窗体的ｂｔｎＥｄｉｔＡｄｄｓｔｕｄｅｎｔ按钮中。编写　

Ｒｅｔｕｒｎ　Ｆａｌｓｅ　

如下代码，使用户点这个按钮时，可以弹出编辑学生的窗口　

ＥｎｄＩｆ　

Ｄｉｍｆｎｎｓｔｕｄｅｎｔｓ　Ａｓ　Ｎｅｗｆｎｎｅｄｉ－　

Ｅｎｄ　Ｆｕｎｃｔｉｏｎ　

ｔａｄｄｓｔｕｄｅｎｔｓ　

Ｐｌｌｂｌｉｅ　Ｓｕｂ　Ｃ￣ｅａｔｅＸＭＬＦｉｌｅ０　

ｆｒｍｓｔｕｄｅｎｔｓ．ＳｈｏｗＤｉａｈｇＯ　

张三”）　

ｔｓ．ＡｄｄｓｔｕｄｅｎｔｓＢｏｗ（”李四”、　

现在可以开始运行代码　

ＷｒｉｔｅＸｍ］（ｓｔｄｎｅｎｔｅＦｄｅ．一　

了。结果如图３所示。　

Ｓｙｓｔｅｍ．Ｄａｔａ．ＸｎｄＷｒｉｔｅＭｏｄｅ．Ｗｒｉｔ￣％ｈｃｍａ）　

这时．你可以点”编辑，增　

加学生ｎ按钮来添加学生姓　

Ｓｙｓｔｅｍ．Ｄａｔａ．ＸｍｌＷｒｉｔｅＭｏｄｅ－Ｗｒｉｔｅ．Ｓｃｈｅｍａ）　

ｎＥｄ　Ｓｕｂ　

名．也可以通过下拉框来选择　

上面的ＣｒｅａｔｅＸＭ删ｅ过程中．设置了一个重要的参数　

学生，输入每门课程的成绩。　

Ｗｒｉ￣Ｓｅｈｅｍａ．以便自动将数据保存到ｓｔｕｄｅｎｔｓｆｄｅ和ｓｃｏｒｅｓｆｄ＇ｅ两　

并对它们进行保存和删除．而　

个文件中，并且自动将ｘｆｎｌ的８ｃｈｅｍａ模式保存起来。只有这样　

这一切。全部是通过使用．ＮＥＴ　２．０中Ｘ．ＭＬ的新特性来实现的。　

才能将两个文件之间的在数据表上对应的关系保存起来。这是．　

３　结论　

ＮＥＴ　２．Ｏ中新增加的功能ｔ３１。　

本文以学生成绩管理程序为例，介绍了采用．ｎｅｔ　２．０。将所有　

Ｐｕｂｌｉｃ　Ｓｕｂ　ＬｏｎｄＤａｔａｕｓｔ０　

的数据都存储在ＸＭＬ文件中的实现方法和过程。详细描述了同　

（ｓｔｄｎｅｎｔｓＨｌｅ）　

时在Ｄａｔａ．Ｓｅｔ里实现读和写多个ＸＭＬ文件．将ＸＭＬ文件绑定到　

ＥｎｄＳｕｂ　

ＤａｔａＧｒｉｄＶｉｅｗ控件．以及并用ＤａｔａＧｒｉｄＶｉｅＷ控件读和写ＸＭＬ文　

上面的ＬｏａｄＤａｔａＳｅｔ过程．十分简单．分别读取两个ｘｆｎｌ文　

件中的数据的机理和过程。　

件。在．ＮＥＴ　２．０中，可以同时在一个ＤａｔａＳｅｔ里加载多个ｘｍｌ文　

件，而在．ＮＥＴ　１．ｘ中，这是很难做到的。　

参考文献：　

保存和删除数据的代码如下：　

１．陈富拳．基于ＸＭＬ的ＡＳＰ．ＮＥＴ的开发与应用．妾擞工程抖挂学院学　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ｂｔｎＳａｖｅ

报。２００４，ｌ９（３）：５９—６３　

＿

Ｃｌｉｃｋ＜ＳｙＷ　ｓｅｎｄｅｒ　Ａｓ　Ｓｙｓｔｅｍ　Ｏｂｊｅｃｔ，Ｂｙｖｄ　ｅ　ＡＢ　ｓ，　

ｅｔｍ。一　

２．ｈｔｔｐ：ｌｌｗｗｗ。ｍｉｃｒｏｓｏｆｔ．ｃＯｍ／ｃｈｉＩｌ１／Ｉｎｓｄｎ／　

ＥｖｅｎｔＡｒｇｓ）Ｈａｎｄｌｅｓ　ｂｔｎＳａｖｅ．Ｃｌｉｃｋ　

３．ｈｔｔｐ：／／ｗｗｗ．ｄｅｖｘ．ｃｏｒｎ／　

＾ｌｅ　Ｄｓｓｔｕｄｅｎｔｓｅｏｒｅ．ｓｃｏｒｓｅＪｔｅｃｅｐｔＣｈａａｇｅｓ０　

４．郭广军。刘凰龙，胡玉平。．ＮＥＴ中基于ＸＭＬ的异构数据转换技术的研　

Ｍｅ．Ｄｓｓｔｕｄｅｎｔｓｅｏｒｅ．￣１ＯＩ３８５．ＷｒｉｔｅＸｍｌ（ｓｅｏｒｅｓＦｉｌｅ．Ｓｙｓｔｅｍ．Ｄａｔａ．ＸｒａｌＷｒｉｔｅＭｏｄｅ．一　

究。征型机与应用，２００５。２４（４）．７－９＋３９　

ＷｒｉｔｅＳｅｈｅｒｎａ）　

ｎＥｄ　Ｓｕｂ　

５．钟山．应用ＡＳＰ．ｎｅｔ＋ｘｍｌ技术建立在绒学生信息录入系统．广西大学栝　

Ｐｒｉｖａｔｅ　ＵＳｂ　ｂｔｎＤｅｌｅｔｅ　Ｃｌｉｃｋ０３ｙＷ　ｓｅｎｄｅｒ　Ａｓ　Ｓｙｓｔｅｍ．Ｏｂｊｅｃｔ．ＢｙＶａｌ　ｅ　Ａｓ　Ｓｙｓ－　

州分枝学报，２００５，１５（３）：９４－９７　

ｔｅｍ．　

ＥｖｅａｔＡｒ￣）Ｈａｎｄｌｅｓ　ｂｍＤｅｌｅｔｅ．Ｃｌｉｃｋ　

（上接第１３９页）　

件中使用Ｃｌｓ方法。则绘图区只留下当前时刻面出的图形。例如　

参考文献：　

可以在Ｔｉｍｅｒ事件中通过使用Ｌｉｎｅ方法画直线来创建一个以弹　

１，葬沸增、陆慰民－Ｖ　ａｌ　Ｂａｓｉｃ程序设计简明教程．高等羲育出版杜．２００３　

簧作为传播媒质并按时间、波长、周期、波的密度等参数进行演　

２．陆斌、何友空．基于ｖｂ的动画方法麓应甩．擞机发展．２００３　

绎的纵波动画演示。　

３．王文斌．在、，ｂ中实现动画设计的常用方法．河南教育学院学报．２００４