Visual Basic动画编程技术

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,并按下表设置它们的属性,未列出的属性使用缺省值。
对象
属性
设置值
Image1
Picture
...(工程文件所处路径)Book1.bmp
Timer1
Enabled
False

Interval
150
程序代码如下:
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 = False
Timer1.Enabled = IsPlaying
Image1.ToolTipText = "开始"
Else ‘动画未启动,则启动
IsPlaying = True
Timer1.Enabled = IsPlaying
Image1.ToolTipText = "停止"‘鼠标移到书上时,将出现“停止”提示
End If
End 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,并按下表设置它们的属性,未列出的属性使用缺省值。
对象
属性
设置值
Image1
Picture
...(工程文件所处路径)Cloud.bmp
Timer1
Enabled
False

Interval
150
程序代码如下:
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 = False
Timer1.Enabled = IsPlaying
Image1.ToolTipText = "开始"
Else ‘动画未启动,则启动
IsPlaying = True
Timer1.Enabled = IsPlaying
Image1.ToolTipText = "停止"
End If
End 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.Top
DetaX% = -DetaX%
ElseIf Image1.Top + Image1.Height >= Form1.Height Then‘碰到上边界
Image1.Move Image1.Left, Form1.Height - Image1.Height
DetaY% = -DetaY%
ElseIf Image1.Left <= 0 Then ‘碰到左边界
Image1.Move 0, Image1.Top
DetaX% = -DetaX%
ElseIf Image1.Top <= 0 Then ‘碰到下边界
Image1.Move Image1.Left, 0
DetaY% = -DetaY%
End If
End Sub
注意,云彩碰到边界而反向移动,是通过改变DetaX%、 DetaY%的符号来实现的。

四、 多帧位移动画
多帧位移动画是最复杂的动画,综合了无位移动画和单帧位移动画的特点。自然界的运动大多数都具有多帧位移的特点,如小鸟的飞翔,在小鸟位置的移动的同时,其翅膀也在扇动。实现多帧位移动画需要在Timer事件过程中同时处理Image对象的图象更替和位置移动。
下面是小鸟飞翔的例子。程序启动时,在窗体中显示一只小鸟,用鼠标左键点击它,则小鸟将开始扇翅飞翔,如碰到窗体的边界,小鸟将改变飞翔方向;再用鼠标左键点击小鸟,则小鸟将停止飞翔。位图文件bird1.bmp~ bird4.bmp分别表现了小鸟飞翔时,其翅膀的不同位置,它们存放在当前工程所在的目录中。在需显示动画的窗体(Form1)中设置Image对象Image1和Timer对象Timer1,并按下表设置它们的属性,未列出的属性使用缺省值。
对象
属性
设置值
Image1
Picture
...(工程文件所处路径)Bird1.bmp
Timer1
Enabled
False

Interval
150
程序代码如下:
Option Explicit ‘变量必须先定义,才能使用
Dim ImageNo% ‘当前的位图编号
Dim IsPlaying As Boolean ‘动画是否启动
Dim DetaX%, DetaY% ‘沿X、Y轴的移动位置增量

Private Sub Form_Load()
IsPlaying = False
Image1.ToolTipText = "开始"
ImageNo% = 1
DetaX% = 100
DetaY% = 100
End Sub

Private Sub Image1_Click()
If IsPlaying Then
IsPlaying = False
Timer1.Enabled = IsPlaying
Image1.ToolTipText = "开始"
Else
IsPlaying = True
Timer1.Enabled = IsPlaying
Image1.ToolTipText = "停止"
End If
End 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.Top
DetaX% = -DetaX%
ElseIf Image1.Top + Image1.Height >= Form1.Height Then ‘碰到上边界
Image1.Move Image1.Left, Form1.Height - Image1.Height
DetaY% = -DetaY%
ElseIf Image1.Left <= 0 Then ‘碰到左边界
Image1.Move 0, Image1.Top
DetaX% = -DetaX%
ElseIf Image1.Top <= 0 Then ‘碰到下边界
Image1.Move Image1.Left, 0
DetaY% = -DetaY%
End If
End Sub

五、 缩放动画
气球的膨胀或缩小是缩放动画的典型例子。在Timer事件过程中修改Image对象的Width和/或Height属性,便可实现缩放动画。但如果要表现物体的同心缩放,则还应同时还需移动Image对象。下面是模拟气球在空中缩放(同心)的例子。程序启动时,在窗体中显示一只气球,用鼠标左键点击它,则气球将开始膨胀,如碰到窗体的边界,气球将缩小,缩小到原来大小时,又将膨胀;再用鼠标左键点击气球,则气球将停止缩
放。位图文件Balloon.bmp存放在当前工程所在的目录中。在需显示动画的窗体(Form1)中设置Image对象Image1和Timer对象Timer1,并按下表设置它们的属性,未列出的属性使用缺省值。
对象
属性
设置值
Image1
Picture
...(工程文件所处路径)Balloon.bmp

Stretch
True
Timer1
Enabled
False

Interval
150
程序代码如下:
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.Height
DetaX% = 100
DetaY% = 100
End Sub

Private Sub Image1_Click()
If IsPlaying Then
IsPlaying = False
Timer1.Enabled = IsPlaying
Image1.ToolTipText = "开始"
Else
IsPlaying = True
Timer1.Enabled = IsPlaying
Image1.ToolTipText = "停止"
End If
End 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 Then
DetaX% = -DetaX%
DetaY% = -DetaY%
End If

`缩到原大,则膨胀
If Image1.Width <= Width0% Or Image1.Height <= Height0% Then
DetaX% = -DetaX%
DetaY% = -DetaY%
End If
End Sub

 

参与评论 您还未登录,请先 登录 后发表或查看评论
作用是在运行时刻自动对其它可视控件进行动态的位置/大小调整.这个控件实现的功能和VB.Net的窗体布局功能类似.比如你的窗体中有一个DBGrid控件,占了很大一部分,下边有几个按钮 现在需要窗体的大小可调,以使DBGrid可以看到更多的数据,这样的话,窗体上的控件就都需要调整,不然只有窗体变化,而控件不动的话就达不到预期效果,而且很难看.原来的方式是在窗口的Resize事件中添加调整控件大小/位置的代码,这样做的话比较麻烦,要自己手动去计算宽度/偏移,然后将这些代码写死在程序中,以后增加控件或者调整布局都需要重新计算/修改代码,不利于维护. 有了这个控件就方便多了,Resize事件中一行代码不用写,只需将这个控件拖动到窗体上,然后设置被调整控件的Tag属性,在运行时刻就可以进行调整了.VB6ResizerLib 2.0 版本新增分隔条控件,运行时可动态调整.同时修改了1.x版本中控件在退出程序前不会被释放及其导致的一系列问题.VB6ResizerLib 2.2 修正了2.0版本中使用DesignTimeInit模式的时候可能会导致VB崩溃的问题.使用说明:启动VB程序,打开一个工程.按Ctrl+T打开部件对话框.找到并选中VB6ResizerLib后点击确定.将工具箱中新出现的VB6Resizer控件拖动到窗体上即可.被调整控件需要使用Tag属性定义调整规则,方式如下:H-调整控件自身高度.W-调整空间自身宽度.T-调整控件与容器顶部距离.L-调整控件与容器左侧距离.例如―HW‖表示自动调整高度和宽度.TL的优先级高于HW,如果Tag同时包含T和H,则仅T有效.

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页

打赏作者

minkerui

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值