首先，用3DS软件制作三维动画，制作过程本文不再详述，注意在生成动画文件时不生成FLC或FLI文件而要生成连续多幅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( )过程中加入以下代码：
FOR I=0 TO 59
PICTURE1(I).LEFT=NN ＇NN 、HH为常数，设定PICTURE PICTURE1(I).TOP=HH ＇在窗体中的位置 ＇以下为装入图象
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
IF I=60 THEN
I=0
PICTURE1(0).VISIBLE=TRUE
PICTURE1(59).VISIBLE=FALSE
ELSE
PICTURE1(I).VISIBLE=TRUE
PICTURE1(I-1).VISIBLE=FALSE
END IF
END SUB
以上程序为每1/18秒变换一幅图象，构成循环播放，注意三维动画要设计成首尾相接的，这样一个循环和另一个循环之间才能衔接好。如不需循环播放则无此问题，把程序中控制循环的语句去掉即可。
上一篇： 用API函数Mcisendstring直接播放背景音乐
下一篇： 用VB实现屏幕滚屏保护效果
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
