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

一、基本原理

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

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

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

二、無位移動畫

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

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

.
.
.

三、單幀位移動畫

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

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

.
.
.

四、多幀位移動畫

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

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

.
.
.

五、縮放動畫

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

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

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