VB应用举例07：在VB应用软件中实现动画效果

　　在开发VB应用程序中，加入了动画之后可使软件具有生动活泼的效果，而且，在编写组态软件中，动画功能更是必不可少，如容器中容量的变化、液体液面的变化等，实际也是一种动画效果。在中科院空间中心开发的“电场和电导率监测网中心站专家系统”中，有多处使用动画效果，现简明介绍如下。

　　一、使用Animation控件

　　在VB中可以使用Animation控件实现动画，实例如下：

Private Sub Animation1_Click () 
With CommonDialog1 
.Filter = "avi (*.avi)|*.avi"’过滤器指定在对话框的文件列表框中显示文件的类型 
.ShowOpen　　　　　　　　　　'显示“打开”对话框 
End With 
With Animation1 
.Autoplay = True             ’一旦将.avi文件加载到Animation 控件中，则.avi文件将连续循环的自动播放。 
.Open CommonDialog1.Filename ’打开一个将要播放的.avi文件。如果AutoPlay属性为True，则只要加载该文件便可。 
End With 
End Sub 

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