VB应用举例07：在VB应用软件中实现动画效果（第3页）

　　三、使用PictureClip控件实现动画

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

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

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

Dim y As Integer 

Dim toggle As Integer 

Private Sub Form_Load() 
    picture1.Picture = PictureClip1. 
    GraphicCell(0)  ’使用第一幅为开始帧 
    y = 0 
    toggle=0 
End Sub 

Private Sub cmd_onoff_Click()  ’开关命令按钮 
    If toggle = 0 Then 
        cmd_onoff.Caption = "停止" 
        toggle = 1 
    Else 
        cmd_onoff.Caption = "旋转" 
        toggle = 0 
    End If 
End Sub 

Private Sub Timer1_Timer() 
If toggle = 1 Then spin       ’满足条件，调图切换子程序 
End Sub 

Private Sub spin() 
        y = y + 1: If y = 17 Then y = 0 
        picture1.Picture = PictureClip1. 
        GraphicCell(y)  图切换一帧 
End Sub 

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