VisualBasic动画编程技术

在VisualBasic中利用Image和Timer控件能很方便地实现动画。本文将介绍VisualBasic动画编程的基本原理和实现三种不同类型动画的编程技术。

一、基本原理

----在VisualBasic中，用LoadPicture函数将BMP、ICO和WMF格式的图象文件装入内存，并将函数返回值赋予Image对象的Picture属性，便能在Image对象中显示图象。使图象移动或变化的基本方法有三种，即：

1. 用Image对象的Move方法移动图象，其Left和Top属性指示了Image对象的当前左上角位置；
   
2. 调用LoadPicture函数装载不同的图象，并赋给Image对象的Picture属性，将在对象中显示不同的图象，即实现图象变化；
   
3. 修改Image对象的Width和/或Height属性可以缩放图象。

----Timer对象的Enabled属性决定了Timer事件是否有效。设置Enabled属性为True将启动Timer事件（如启动动画）；为False则将使Timer事件无效（如停止动画）。

二、无位移动画

----下面是翻书动画的例子。程序启动时，在窗体中显示一本翻开的书，用鼠标左键点击书，则将开始翻书；再用鼠标左键点击书，则书将停止翻动。位图文件book1.bmp~book4.bmp分别表现了翻书时，正在翻的书页的不同位置，它们存放在当前工程所在的目录中。

----在需显示动画的窗体（Form1）中设置Image对象Image1和Timer对象Timer1，并按下表设置它们的属性，未列出的属性使用缺省值。

.
.
.

三、单帧位移动画

----下面是云彩移动的例子。程序启动时，在窗体中显示一朵云，用鼠标左键点击云，则云彩将开始飘动，如碰到窗体的边界，云彩将改变移动方向；再用鼠标左键点击云，则云将停止移动。位图文件cloud.bmp存放在当前工程所在的目录中。

----在需显示动画的窗体（Form1）中设置Image对象Image1和Timer对象Timer1，并按下表设置它们的属性，未列出的属性使用缺省值。

.
.
.

四、多帧位移动画

----下面是小鸟飞翔的例子。程序启动时，在窗体中显示一只小鸟，用鼠标左键点击它，则小鸟将开始扇翅飞翔，如碰到窗体的边界，小鸟将改变飞翔方向；再用鼠标左键点击小鸟，则小鸟将停止飞翔。位图文件bird1.bmp~bird4.bmp分别表现了小鸟飞翔时，其翅膀的不同位置，它们存放在当前工程所在的目录中。

----在需显示动画的窗体（Form1）中设置Image对象Image1和Timer对象Timer1，并按下表设置它们的属性，未列出的属性使用缺省值。

.
.
.

五、缩放动画

----下面是模拟气球在空中缩放（同心）的例子。程序启动时，在窗体中显示一只气球，用鼠标左键点击它，则气球将开始膨胀，如碰到窗体的边界，气球将缩小，缩小到原来大小时，又将膨胀；再用鼠标左键点击气球，则气球将停止缩放。位图文件Balloon.bmp存放在当前工程所在的目录中。

----在需显示动画的窗体（Form1）中设置Image对象Image1和Timer对象Timer1，并按下表设置它们的属性，未列出的属性使用缺省值。

对象
属性
设置值
Image1
Picture
...(工程文件所处路径)\Balloon.bmp
.
.
.