Visual Basic动画编程技术 在Visual Basic中利用Image和Timer控件能很方便地实现动画。本文将介绍Visual Basic动画编程的基本原理和实现三种不同类型动画的编程技术。
一、 基本原理动画是一种运动的模拟，其实现方法是在屏幕上快速地显示一组相关的图象。因此实现动画的基础是图象的显示和使图象快速、定时地移动或变化。在Visual Basic中，用LoadPicture函数将BMP、ICO和WMF格式的图象文件装入内存，并将函数返回值赋予Image对象的Picture属性，便能在Image对象中显示图象。使图象移动或变化的基本方法有三种，即：1． 用Image对象的Move方法移动图象，其Left和Top属性指示了Image对象的当前左上角位置；2． 调用LoadPicture函数装载不同的图象，并赋给Image对象的Picture属性，将在对象中显示不同的图象，即实现图象变化；3． 修改Image对象的Width和/或Height属性可以缩放图象。使用Timer控件可以实现定时控制。Timer对象的Interval属性设置了定时间隔，即调用Timer事件过程的时间间隔。在Timer事件过程中处理控制Image对象的移动或变化，便能实现动画。Timer对象的Interval值决定了动画的变化或移动速度，其单位是毫秒（1/1000秒）。Timer对象的Enabled属性决定了Timer事件是否有效。设置Enabled属性为True将启动Timer事件（如启动动画）；为False则将使Timer事件无效（如停止动画）。
二、 无位移动画无位移动画是指动画对象不移动，但图象不断变化，其典型例子是翻书。实现无位移动画的方法是，设置好Image对象和Timer对象后，在Timer事件过程中调用调用LoadPicture函数装载不同的图象，并赋予Image对象的Picture属性，使对象中显示不同的图象，即实现图象变化。下面是翻书动画的例子。程序启动时，在窗体中显示一本翻开的书，用鼠标左键点击书，则将开始翻书；再用鼠标左键点击书，则书将停止翻动。位图文件book1.bmp~ book4.bmp分别表现了翻书时，正在翻的书页的不同位置，它们存放在当前工程所在的目录中。在需显示动画的窗体（Form1）中设置Image对象Image1和Timer对象Timer1，并按下表设置它们的属性，未列出的属性使用缺省值。对象属性设置值Image1Picture...(工程文件所处路径)Book1.bmpTimer1EnabledFalse
Interval150程序代码如下：Option Explicit ‘变量必须先定义，才能使用Dim ImageNo% ‘当前的位图编号Dim IsPlaying As Boolean ‘动画是否启动
Private Sub Form_Load() IsPlaying = False ‘开始时，动画未启动Image1.ToolTipText = "开始" ‘鼠标移到书上时，将出现“开始”提示ImageNo% = 1 ‘动画从book1.bmp开始End Sub
Private Sub Image1_Click() ‘用鼠标左键点击了书If IsPlaying Then ‘动画已启动，则停止IsPlaying = FalseTimer1.Enabled = IsPlayingImage1.ToolTipText = "开始"Else ‘动画未启动，则启动IsPlaying = TrueTimer1.Enabled = IsPlayingImage1.ToolTipText = "停止"‘鼠标移到书上时，将出现“停止”提示End IfEnd Sub
Private Sub Timer1_Timer() ‘Timer事件ImageNo% = ImageNo% + 1 ‘动画下一帧If ImageNo% > 4 Then ‘如果动画已到最后一帧，则ImageNo% = 1 ‘再从第一帧开始End If
`在Image对象中显示动画的当前帧Image1.Picture = LoadPicture(App.Path & "ook" & ImageNo% & ".bmp")End Sub代码中App.Path指定了当前应用程序所在的路径。
三、 单帧位移动画单帧位移动画，是指同一幅图象的位置不断变化而形成的动画，其典型实例时云彩被风吹动。编制单帧位移动画的方法是在Timer事件过程中调用Image对象的Move方法来移动图象。下面是云彩移动的例子。程序启动时，在窗体中显示一朵云，用鼠标左键点击云，则云彩将开始飘动，如碰到窗体的边界，云彩将改变移动方向；再用鼠标左键点击云，则云将停止移动。位图文件cloud.bmp存放在当前工程所在的目录中。在需显示动画的窗体（Form1）中设置Image对象Image1和Timer对象Timer1，并按下表设置它们的属性，未列出的属性使用缺省值。对象属性设置值Image1Picture...(工程文件所处路径)Cloud.bmpTimer1EnabledFalse
Interval150程序代码如下：Option Explicit ‘变量必须先定义，才能使用Dim IsPlaying As Boolean ‘动画是否启动Dim DetaX%, DetaY% ‘沿X、Y轴的移动位置增量
Private Sub Form_Load()IsPlaying = False ‘开始时，动画未启动Image1.ToolTipText = "开始" ‘鼠标移到书上时，将出现“开始”提示DetaX% = 100 ‘沿X轴的移动位置增量为100单位DetaY% = 100 ‘沿Y轴的移动位置增量为100单位End Sub
Private Sub Image1_Click() ‘用鼠标左键点击了书If IsPlaying Then ‘动画已启动，则停止IsPlaying = FalseTimer1.Enabled = IsPlayingImage1.ToolTipText = "开始"Else ‘动画未启动，则启动IsPlaying = TrueTimer1.Enabled = IsPlayingImage1.ToolTipText = "停止"End IfEnd Sub
Private Sub Timer1_Timer() ‘Timer事件‘移动Image对象Image1.Move Image1.Left + DetaX%, Image1.Top + DetaY%
‘碰到边界，则校正位置，并反向If Image1.Left + Image1.Width >= Form1.Width Then ‘碰到右边界Image1.Move Form1.Width - Image1.Width, Image1.TopDetaX% = -DetaX%ElseIf Image1.Top + Image1.Height >= Form1.Height Then‘碰到上边界Image1.Move Image1.Left, Form1.Height - Image1.HeightDetaY% = -DetaY%ElseIf Image1.Left <= 0 Then ‘碰到左边界Image1.Move 0, Image1.TopDetaX% = -DetaX%ElseIf Image1.Top <= 0 Then ‘碰到下边界Image1.Move Image1.Left, 0DetaY% = -DetaY%End IfEnd Sub注意，云彩碰到边界而反向移动，是通过改变DetaX%、 DetaY%的符号来实现的。
四、 多帧位移动画多帧位移动画是最复杂的动画，综合了无位移动画和单帧位移动画的特点。自然界的运动大多数都具有多帧位移的特点，如小鸟的飞翔，在小鸟位置的移动的同时，其翅膀也在扇动。实现多帧位移动画需要在Timer事件过程中同时处理Image对象的图象更替和位置移动。下面是小鸟飞翔的例子。程序启动时，在窗体中显示一只小鸟，用鼠标左键点击它，则小鸟将开始扇翅飞翔，如碰到窗体的边界，小鸟将改变飞翔方向；再用鼠标左键点击小鸟，则小鸟将停止飞翔。位图文件bird1.bmp~ bird4.bmp分别表现了小鸟飞翔时，其翅膀的不同位置，它们存放在当前工程所在的目录中。在需显示动画的窗体（Form1）中设置Image对象Image1和Timer对象Timer1，并按下表设置它们的属性，未列出的属性使用缺省值。对象属性设置值Image1Picture...(工程文件所处路径)Bird1.bmpTimer1EnabledFalse
Interval150程序代码如下：Option Explicit ‘变量必须先定义，才能使用Dim ImageNo% ‘当前的位图编号Dim IsPlaying As Boolean ‘动画是否启动Dim DetaX%, DetaY% ‘沿X、Y轴的移动位置增量
Private Sub Form_Load()IsPlaying = FalseImage1.ToolTipText = "开始"ImageNo% = 1DetaX% = 100DetaY% = 100End Sub
Private Sub Image1_Click()If IsPlaying ThenIsPlaying = FalseTimer1.Enabled = IsPlayingImage1.ToolTipText = "开始"ElseIsPlaying = TrueTimer1.Enabled = IsPlayingImage1.ToolTipText = "停止"End IfEnd Sub
Private Sub Timer1_Timer() ‘Timer事件ImageNo% = ImageNo% + 1 ‘动画下一帧If ImageNo% > 4 Then ‘如果动画已到最后一帧，则ImageNo% = 1 ‘再从第一帧开始End If
`在Image对象中显示动画的当前帧Image1.Picture = LoadPicture(App.Path & "ird" & ImageNo% & ".bmp")
‘移动Image对象Image1.Move Image1.Left + DetaX%, Image1.Top + DetaY%
‘碰到边界，则校正位置，并反向If Image1.Left + Image1.Width >= Form1.Width Then ‘碰到右边界Image1.Move Form1.Width - Image1.Width, Image1.TopDetaX% = -DetaX%ElseIf Image1.Top + Image1.Height >= Form1.Height Then ‘碰到上边界Image1.Move Image1.Left, Form1.Height - Image1.HeightDetaY% = -DetaY%ElseIf Image1.Left <= 0 Then ‘碰到左边界Image1.Move 0, Image1.TopDetaX% = -DetaX%ElseIf Image1.Top <= 0 Then ‘碰到下边界Image1.Move Image1.Left, 0DetaY% = -DetaY%End IfEnd Sub
五、 缩放动画气球的膨胀或缩小是缩放动画的典型例子。在Timer事件过程中修改Image对象的Width和/或Height属性，便可实现缩放动画。但如果要表现物体的同心缩放，则还应同时还需移动Image对象。下面是模拟气球在空中缩放（同心）的例子。程序启动时，在窗体中显示一只气球，用鼠标左键点击它，则气球将开始膨胀，如碰到窗体的边界，气球将缩小，缩小到原来大小时，又将膨胀；再用鼠标左键点击气球，则气球将停止缩放。位图文件Balloon.bmp存放在当前工程所在的目录中。在需显示动画的窗体（Form1）中设置Image对象Image1和Timer对象Timer1，并按下表设置它们的属性，未列出的属性使用缺省值。对象属性设置值Image1Picture...(工程文件所处路径)Balloon.bmp
StretchTrueTimer1EnabledFalse
Interval150程序代码如下：Option Explicit `变量必须先定义，才能使用Dim IsPlaying As Boolean `动画是否启动Dim Width0%, Height0% `气球原大小Dim DetaX%, DetaY% `沿X、Y轴的缩放增量
Private Sub Form_Load()IsPlaying = False Image1.ToolTipText = "开始"Width0% = Image1.Width ‘保存气球的初始大小Height0% = Image1.HeightDetaX% = 100DetaY% = 100End Sub
Private Sub Image1_Click()If IsPlaying ThenIsPlaying = FalseTimer1.Enabled = IsPlayingImage1.ToolTipText = "开始"ElseIsPlaying = TrueTimer1.Enabled = IsPlayingImage1.ToolTipText = "停止"End IfEnd Sub
Private Sub Timer1_Timer() `Timer事件`移动Image对象，保持同心缩放Image1.Move Image1.Left - DetaX% / 2, Image1.Top - DetaY% / 2‘按增量缩放Image1.Width = Image1.Width + DetaX%Image1.Height = Image1.Height + DetaY%
`碰到边界，则缩小If Image1.Left + Image1.Width >= Form1.Width Or _Image1.Top + Image1.Height >= Form1.Height Or _Image1.Left <= 0 Or Image1.Top <= 0 ThenDetaX% = -DetaX
