在VB应用软件中实现动画效果

----一、使用Animation控件

----在VB5.0中可以使用Animation控件实现动画，实例如下：

PrivateSubAnimation1_Click()
　　WithCommonDialog1
　　Filter="avi(*.avi)|*.avi"
　　过滤器指定在对话框的文件列表框中显示文件的类型
　　.ShowOpen
　　显示“打开”对话框
　　EndWith
　　WithAnimation1
　　.Autoplay=True
　　

----一旦将.avi文件加载到Animation控件中，则.avi文件将连续循环的自动播放。

.OpenCommonDialog1.Filename
　　

----打开一个将要播放的.avi文件。如果AutoPlay属性为True，则只要加载该文件便可。

EndWith
　　EndSub
　　

----Animation控件不能播放含有声音数据的.avi文件。此外，动画控件只能显示未压缩的或用行程编码(RLE)压缩的.avi文件。当用文件调用Open方法时，如果该文件含有声音数据，或不具备特定的压缩格式，则返回错误。

----二、使用AniPushButton（AniButton）控件

----受WINDOWS/NT超级终端动画效果的影响，笔者也希望在开发的应用软件中加入转动地球的效果。首先用PHOTOSHOP制作一些图画，地球的图像是用一个地球仪临摹取得的，每次将地球仪转动一个固定的角度，得到一幅不同角度地球的图像，重复多次，且将每一幅图存为一个.bmp文件，供AniPushButton调用。

----AniPushButton控件包含了大量的属性、方法、事件供开发人员使用。首先在Picture和Frame属性中装入图像文件，Picture属性可以装入多幅图像文件，帧Frame属性是Picture属性装入图像文件的索引，Frame属性是1对应第一个图像文件，注意，Frame只能从1开始，而图像数组可以从0开始，这两个属性可以在属性设计时设置，也可以在程序中设置，Picture属性可以装入.bmp、.ico、.wmf等文件，其他格式的图像文件可以用PHOTOSHOP或SEA等文件进行格式转换，在动画的图像文件装入时，不是装入一幅图像文件，而是要在Frame属性的控制下，装入多幅图像文件，Frame为1，Picture装入第一幅图像文件，Frame为2，Picture装入第二幅图像文件，依次类推，将可产生动画效果的各种图像依次装入Picture属性中。

----PicDrawMode属性用于设置显示图像与装入图像之间的比例关系。0为控制按设计的大小装入图像，1为控制按图像的大小自动调整边框的大小，2为图像按控制的大小放大或缩小原图Caption属性，为了不影响动画的效果，这里清空Caption属性。

----Speed属性，表示动态切换每幅图的速度，以毫秒ms为单位，值越大，切换速度越慢。

----SpecialOp属性，该属性在设计时无效，只有在程序运行时软件设置，为1时，表示模拟鼠标的Click操作，不由用户操作触发，而由系统自动触发动画按钮，使控制执行Click功能，在下面的软件中使用定时器来激活该功能。在下面的程序中，用到的一些参数值，包括Picture和Frame都是在程序中设置的，不是在属性对话框中设置的。

PrivateSubForm_Load()
　　Withtimer1设定时器属性
　　.Enabled=False
　　.Interval=600
　　EndWith
　　WithAniPushButton1设AniPushButton1各属性
　　.Enabled=True激活
　　.Cycle=0
　　.Caption=""
　　.PictDrawMode=1按图像的大小自动调整
　　.Speed=200帧切换速度
　　.Frame=1用LoadPicture方法给Picture属性赋值
　　.Picture=LoadPicture("c:earth1.bmp")
　　.Frame=2
　　.Picture=LoadPicture("c:earth2.bmp")
　　.Frame=3
　　.Picture=LoadPicture("c:earth3.bmp")
　　.Frame=4
　　.Picture=LoadPicture("c:earth4.bmp")
　　.Frame=5
　　.Picture=LoadPicture("c:earth5.bmp")
　　EndWith
　　
　　EndSub
　　
　　SubCmd_Start_Click()开始命令按钮启动定时器
　　timer1.Enabled=-1
　　EndSub
　　
　　SubTimer1_Timer()
　　AniButton1.SpecialOp=1实现鼠标的Click操作
　　EndSub
　　

----三、使用PictureClip控件实现动画

----该控件提供了存储多个图像信息的技术，其访问方式不是向AniPushButton依次切换每幅图像，而是先将多幅图像依次有序存放在一个.bmp文件中，.bmp中的图像将被均匀分割成许多小块，每一块作为动画切换的一幅图。

----下面的程序将实现一个转动陀螺的动画效果。

----在程序的声明段定义变量：

DimyAsInteger
　　DimtoggleAsInteger
　　
　　PrivateSubForm_Load()
　　picture1.Picture=PictureClip1.
　　GraphicCell(0)使用第一幅为开始帧
　　y=0
　　toggle=0
　　EndSub
　　
　　PrivateSubcmd_onoff_Click()开关命令按钮
　　Iftoggle=0Then
　　cmd_onoff.Caption="停止"
　　toggle=1
　　Else
　　cmd_onoff.Caption="旋转"
　　toggle=0
　　EndIf
　　EndSub
　　PrivateSubTimer1_Timer()
　　Iftoggle=1Thenspin满足条件，调图切换子程序
　　EndSub
　　PrivateSubspin()
　　y=y 1:Ify=17Theny=0
　　picture1.Picture=PictureClip1.
　　GraphicCell(y)图切换一帧
　　EndSub
　　

----在上面的程序中，使用了命令按钮、图片控件、定时器和图像剪切控件等功能，其中最主要的是制作图像文件。图像文件制作分两个过程，首先制作单个的图像文件，然后，将这些图像文件合并成一个图像文件，存于一个.bmp文件中，在图像合成时可使用WINDOWS/95中的“画图”，用粘贴的方法完成。注意，在图像合成时，应设置状态栏参数以确定图像的精确位置，否则，在动画过程中，图像会出现跳动和不稳定感。

----四、使用Image实现动画效果

----该功能用定时器控件来控制移动和地球转动的速度，当然，其速度还与程序中设定的步长有关系，具体程序片段如下：

PrivateSubForm_Load()
　　Timer_animate.inteval=100INTEVAL属性为100ms
　　Timer_animate.enabled=true启动动画定时器
　　EndSub
　　PrivateSubTimer_animate_Timer()
　　Callani_Image定时调移动子程序
　　EndSub
　　SubIncrFrame()
　　FrameNum=FrameNum 1帧加1
　　IfFrameNum>5Then
　　最后一帧图像显示之后返回第一帧
　　FrameNum=1
　　EndIf
　　Imageearth(0).Picture=Imageearth(FrameNum).Picture
　　将该帧图像赋给运动的Imageearth(0)控件的Picture属性
　　EndSub
　　Subani_Image()控制移动子程序
　　SelectCaseMotion控制移动方向的变量
　　Case1向上和向左移动，步长50twips
　　Imageearth(0).MoveImageearth(0).
　　Left-50,Imageearth(0).Top-50
　　IncrFrame切换到下一幅图
　　IfImageearth(0).Left<=0Then向左移动到了边界
　　Motion=2向上和向右移动
　　ElseIfImageearth(0).Top<=0Then
　　Motion=4向上移动到了边界，改向下和向左移动
　　EndIf
　　Case2向右和向上
　　Imageearth(0).MoveImageearth(0).Left 50,
　　Imageearth(0).Top-50
　　IncrFrame
　　到了右边界，转为向左和向上
　　IfImageearth(0).Left>=(startform.Width
　　-Imageearth(0).Width)Then
　　Motion=1
　　ElseIfImageearth(0).Top<=0Then
　　Motion=3向右向下
　　EndIf
　　Case3向右向下
　　Imageearth(0).MoveImageearth(0).Left 50,
　　Imageearth(0).Top 50
　　IncrFrame
　　IfImageearth(0).Left>=(startform.Width
　　-Imageearth(0).Width)Then
　　Motion=4向左向下
　　ElseIfImageearth(0).Top>=
　　(startform.Height-Imageearth(0).Height)-680Then
　　Motion=2向右向上，其中680twips是标题和菜单的高度
　　EndIf
　　Case4向左向下
　　Imageearth(0).MoveImageearth(0).Left-50,
　　Imageearth(0).Top 50
　　IncrFrame
　　IfImageearth(0).Left<=0Then
　　是否到了左边界，如到了转向右向下
　　Motion=3
　　是否到了下边界
　　ElseIfImageearth(0).Top>=(startform.Height
　　-Imageearth(0).Height)-680Then
　　Motion=1向左向上
　　EndIf
　　EndSelect
　　EndSub->