Visual Basic动画编程技术

最新推荐文章于 2024-06-23 13:59:17 发布
最新推荐文章于 2024-06-23 13:59:17 发布
阅读量889 收藏 2
点赞数
文章标签： basic 编程 image timer
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/minkerui/article/details/7419
版权

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

 

minkerui
关注
  • 0
    点赞
  • 踩
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
VB动画程序(VB6.0代码编写)
07-08
经常看电视的朋友一定会注意到许多动画片的场面制作得非常精美，那么能不能用VB6设计类似的场面呢，答案是肯定的，下面的代码可以慢慢的画出随机形状、可以设定树枝密度的“树”，并且可以在这棵树上慢慢的“结”出指定数量的桔红色的“果子”——非常的有趣。QQ223857666勾月
用vb程序设计动画
sunqingxue的专栏
05-22 943
代码： Public TopBottom, LeftRight As String Private Sub Form_Click()     If Timer1.Enabled = False Then        Timer1.Enabled = True     Else        Timer1.Enabled = False     End If End S
图像重绘输出
最新发布
m0_63764739的博客
06-23 422
主要步骤和功能 定义类和初始化：apply 方法：加载控制网络：处理掩码：生成控制提示：处理正向提示：处理正向和负向提示：返回结果：这个类的主要作用是根据给定的图像和提示信息应用 ControlNet，以实现特定的图像处理任务。它可以与大模型（如预训练的 ControlNet 模型）一起使用，以增强和调整图像生成过程。 主要步骤和功能 类定义和初始化：初始化方法：获取图像嵌入：获取人脸识别增强型图像嵌入：这个类的主要作用是根据不同的配置和输入，使用相应的图像投影模型生成图像嵌入，适用于图像生
核心动画编程指南
core的博客
09-22 397
核心动画编程指南
VB6编程：DirectX 2D图形学习日志23卡通动画总结
gosub60的博客
12-15 228
VB6编程：DirectX 2D图形学习日志23卡通动画总结 程序分析 一、初始化过程： 1、 使用了一个函数Window_Setup（）来设置窗口， Private Sub Window_Setup(Window As Form, [ByVal X As Long = -1], [ByVal Y As Long = -1], [ByVal Width As Long = -1], [ByVal Height As Long = -1], [Caption As String = " "], [Auto_R
vb 绘制图形/蝴蝶动画
寒泉
05-22 1万+
实验一 画图形 代码 Private Sub Form_Click() Scale (0, 30)-(120, 0) Circle (15, 15), 10 Circle (45, 15), 10, , , , 2 Circle (75, 15), 10, , -0.7, -2.1 Circle (105, 15), 10, , -2.1, 0.7 End...
精彩编程与编程技巧-Visual Basic动画编程技术...
10-10
### Visual Basic动画编程技术 #### 一、简介 在Visual Basic (VB)中实现动画效果是一种常见的编程技术，尤其在游戏开发、用户界面设计等领域有着广泛的应用。通过本篇文章，我们将深入了解如何使用VB来创建基本的...
Visual Basic.NET精彩编程百例 李强 源代码
09-26
由于对各方面的程序开发书中都有相应的实例，所以还可以作为一本不错的VisualBasic．NET编程开发书。 前言 第一篇 窗体设计及控件应用 实例1 你好程序 实例2 消息提示 实例3 输入对话框 实例4 选择按钮 实例...
基于Visual Basic 6.0的梵塔动画演示的设计与实现毕业作品
01-18
总的来说，这个毕业设计项目不仅展示了如何用编程技术解决一个经典问题，还体现了教学创新，将抽象的算法以直观的方式呈现，有助于提高学生的学习效果和兴趣。通过深入学习和实践，学生不仅能掌握汉诺塔问题的解决...
VB 播放Flash动画
06-07
VB 播放Flash动画 VB 播放Flash动画 VB 播放Flash动画
用VB播放Flash动画
07-26
Flash动画非常常见，可VB默认的控件不管是PictureBox还是Image控件都不能播放Flash动画。如果能用VB播放Flash动画会使程序变得非常美观。那么我们如何不借助第三方控件，用VB播放Flash动画呢？本资源包含的源程序代码将为您解答。本资源压缩包内包含实现此功能的所有代码（不含第三方控件），简单修改即可适应您的要求。本源代码中只提供方法，没有演示用的Flash文件。请用户自备Flash动画文件。
Visual Basic 6 Resizer VB6控件动态位置大小调整
03-07
作用是在运行时刻自动对其它可视控件进行动态的位置/大小调整.这个控件实现的功能和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有效.
vb初学者编程代码大全_懒猪开始学编程，Visual Basic与Visual C#实例第一
热门推荐
weixin_39915367的博客
11-25 1万+
本篇章适合小白和菜鸟，大咖和专业人士请绕行。我们这些人可以从接触编程到开始学习编程，从学习编程到初级程序员，这是我们的第一目标，就是能够编一些小程序和小软件解决自己手头的问题即可。如果有志向者，可以继续学习深造，能够学有所用编成型的软件，成为高级程序员。之后，再有想吃天鹅肉的癞蛤蟆可以继续向前冲击系统分析师，指导和安排别人来编程，编大型软件系统。那么，不想吃天鹅肉的青蛙们走起。先来看一个简单的VB...
Visual Basic 编程语言基础教程
禅与计算机程序设计艺术
08-05 1354
2008年，微软推出了一款全新的编程语言——VB(Visual Basic)，其设计目的是为了提供一种面向对象的、命令式的编程环境，来帮助开发人员更简单地创建基于Windows系统的应用程序。该语言包括一些高级特性，如自动内存管理、异常处理、动态类型、多线程、网络访问、数据库支持、图形用户界面等。VB被认为是微软在Windows平台上首个采用面向对象编程模型的语言。
Visual Free Basic教程开篇：例001：计算矩形面积
u010763140的博客
06-12 411
visual free basic 例001
visual basic开发实例大全(基础卷_【Windows SDK学习】基础概念介绍
weixin_39731916的博客
11-25 343
什么是Windows SDK？SDK即Software Develope Kit（软件开发工具包），它包含了进行Windows软件开发的文档和API函数的输入库、头文件（因为API在动态链接库中，这些动态链接库是系统的组成部分，因此不用再提供，而输入库和头文件则必须，这样才能在你的程序中使用API函数）。早期SDK是一个单独发放的包，现在在Visual C++和其他一些开发环境中已经包含了它，如果...
Visual Basic 案例集锦
三味书屋
12-19 903
案 例 集 锦 在前面的章节中讲述了使用VB创建数据库应用程序的几个范例，其实作为编程语言来说，VB易于掌握和提高，可以极为迅速和简 洁的创建Windows应用程序，非常适合普通的用户来编写符合自己需要的实用小程序。在接下来的内容中将向读者介绍几个用VB开发实用小程序的方法，并 且结合实例向读者介绍VB编程中的许多技巧。 案例一　我的桌面小闹钟 一、概述 在本例中将创建一个可以自动跟随鼠标移动的小...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

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

余额充值