VB中播放三維動畫編程一例

2019-11-18 17:37:10

字體：大中小

來源：轉載

供稿：網友

用三維動畫做多媒體應用程序中的動畫界面，由于畫面效果良好逼真，已越來越多地被程序員們采用。在VB中播放三維動畫的方法，刊物中已有介紹。常見的有：1利用Autodesk公司提供的Aaplay.VBX控件，可方便實現，但正版Aaplay.VBX很難見到，且在VB4.0以上版本中，已不再支持VBX控件而改用OCX。2利用MCI(VB4.0中為MMContral)控件或調用動態(tài)鏈接庫AAPLAY.DDL，但MCI控件只能播放AVI格式的動畫卻對FLC無能為力，調用DDL庫的詳細方法又未被普遍掌握。本文介紹另一途徑可方便實現對三維動畫的靈活播放，供大家參考。

　　首先，用3DS軟件制作三維動畫，制作過程本文不再詳述，注意在生成動畫文件時不生成FLC或FLI文件而要生成連續(xù)多幅BMP格式圖象，以供VB中使用。圖象的大小最好和播放時動畫窗口的大小一致，這樣在VB中就不用再專門改變圖象的大小了。文件名可起成類似“DH2”這樣的名稱，如制作一個60幅的動畫，在生成時就會自動生成DH20000.BMP至DH20059.BMP一系列圖形文件。將它們放在預定目錄如“c:/bmp”中。

　　第二，在播放動畫的窗體中設置Picture控件數組，如：“Picture1(60)",下標為0至59。將其屬性Autosize置為true。這樣Picture的大小將自動與BMP圖象的大小一致，如想改變播放時圖形的尺寸，可以使用Image控件數組，將其Stretch屬性置為True。(使用Image控件播放時畫面比Picture控件略為流暢，因其顯示速度較快）

　　第三，編程播放。

　　在Form_load()過程中加入以下代碼：

　　FORI=0TO59

　　PICTURE1(I).LEFT=NN＇NN、HH為常數，設定PICTUREPICTURE1(I).TOP=HH＇在窗體中的位置　?。б韵聻檠b入圖象

　　FILENAME="C:/BMP/DH"&STR(20000 I)

　　FILENAME=FILENAME&".BMP"

　　PICTURE1(I).PICTURE=LOADPICTURE(FILENAME)

　　NEXT

　　在窗體中加入時鐘控件Timer1，其Interval屬性置為56。在Timer事件函數中加入以下代碼：

　　TIMER1_TIMER()

　　I=I 1

　　IFI=60THEN

　　I=0

　　PICTURE1(0).VISIBLE=TRUE

　　PICTURE1(59).VISIBLE=FALSE

　　ELSE

　　PICTURE1(I).VISIBLE=TRUE

　　PICTURE1(I-1).VISIBLE=FALSE

　　ENDIF

　　ENDSUB

　　以上程序為每1/18秒變換一幅圖象，構成循環(huán)播放，注意三維動畫要設計成首尾相接的，這樣一個循環(huán)和另一個循環(huán)之間才能銜接好。如不需循環(huán)播放則無此問題，把程序中控制循環(huán)的語句去掉即可。->

上一篇：用API函數Mcisendstring直接播放背景音樂

下一篇：滿屏播放AVI文件