在VisualBasic中利用Image和Timer控件能很方便地實(shí)現(xiàn)動(dòng)畫。本文將介紹VisualBasic動(dòng)畫編程的基本原理和實(shí)現(xiàn)三種不同類型動(dòng)畫的編程技術(shù)。

一、基本原理

----在VisualBasic中，用LoadPicture函數(shù)將BMP、ICO和WMF格式的圖象文件裝入內(nèi)存，并將函數(shù)返回值賦予Image對(duì)象的Picture屬性，便能在Image對(duì)象中顯示圖象。使圖象移動(dòng)或變化的基本方法有三種，即：

1. 用Image對(duì)象的Move方法移動(dòng)圖象，其Left和Top屬性指示了Image對(duì)象的當(dāng)前左上角位置；
   
2. 調(diào)用LoadPicture函數(shù)裝載不同的圖象，并賦給Image對(duì)象的Picture屬性，將在對(duì)象中顯示不同的圖象，即實(shí)現(xiàn)圖象變化；
   
3. 修改Image對(duì)象的Width和/或Height屬性可以縮放圖象。

----Timer對(duì)象的Enabled屬性決定了Timer事件是否有效。設(shè)置Enabled屬性為True將啟動(dòng)Timer事件（如啟動(dòng)動(dòng)畫）；為False則將使Timer事件無效（如停止動(dòng)畫）。

二、無位移動(dòng)畫

----下面是翻書動(dòng)畫的例子。程序啟動(dòng)時(shí)，在窗體中顯示一本翻開的書，用鼠標(biāo)左鍵點(diǎn)擊書，則將開始翻書；再用鼠標(biāo)左鍵點(diǎn)擊書，則書將停止翻動(dòng)。位圖文件book1.bmp~book4.bmp分別表現(xiàn)了翻書時(shí)，正在翻的書頁的不同位置，它們存放在當(dāng)前工程所在的目錄中。

----在需顯示動(dòng)畫的窗體（Form1）中設(shè)置Image對(duì)象Image1和Timer對(duì)象Timer1，并按下表設(shè)置它們的屬性，未列出的屬性使用缺省值。

.
.
.

三、單幀位移動(dòng)畫

----下面是云彩移動(dòng)的例子。程序啟動(dòng)時(shí)，在窗體中顯示一朵云，用鼠標(biāo)左鍵點(diǎn)擊云，則云彩將開始飄動(dòng)，如碰到窗體的邊界，云彩將改變移動(dòng)方向；再用鼠標(biāo)左鍵點(diǎn)擊云，則云將停止移動(dòng)。位圖文件cloud.bmp存放在當(dāng)前工程所在的目錄中。

----在需顯示動(dòng)畫的窗體（Form1）中設(shè)置Image對(duì)象Image1和Timer對(duì)象Timer1，并按下表設(shè)置它們的屬性，未列出的屬性使用缺省值。

.
.
.

四、多幀位移動(dòng)畫

----下面是小鳥飛翔的例子。程序啟動(dòng)時(shí)，在窗體中顯示一只小鳥，用鼠標(biāo)左鍵點(diǎn)擊它，則小鳥將開始扇翅飛翔，如碰到窗體的邊界，小鳥將改變飛翔方向；再用鼠標(biāo)左鍵點(diǎn)擊小鳥，則小鳥將停止飛翔。位圖文件bird1.bmp~bird4.bmp分別表現(xiàn)了小鳥飛翔時(shí)，其翅膀的不同位置，它們存放在當(dāng)前工程所在的目錄中。

----在需顯示動(dòng)畫的窗體（Form1）中設(shè)置Image對(duì)象Image1和Timer對(duì)象Timer1，并按下表設(shè)置它們的屬性，未列出的屬性使用缺省值。

.
.
.

五、縮放動(dòng)畫

----下面是模擬氣球在空中縮放（同心）的例子。程序啟動(dòng)時(shí)，在窗體中顯示一只氣球，用鼠標(biāo)左鍵點(diǎn)擊它，則氣球?qū)㈤_始膨脹，如碰到窗體的邊界，氣球?qū)⒖s小，縮小到原來大小時(shí)，又將膨脹；再用鼠標(biāo)左鍵點(diǎn)擊氣球，則氣球?qū)⑼Ｖ箍s放。位圖文件Balloon.bmp存放在當(dāng)前工程所在的目錄中。

----在需顯示動(dòng)畫的窗體（Form1）中設(shè)置Image對(duì)象Image1和Timer對(duì)象Timer1，并按下表設(shè)置它們的屬性，未列出的屬性使用缺省值。

對(duì)象
屬性
設(shè)置值
Image1
Picture
...(工程文件所處路徑)/Balloon.bmp
.
.
.