VB Animation控件怎么添加?

Microsoft Windows Common Controls 2 6.0

MSCOMCT2.OCX Animation, UpDown, MonthView, DTPicker, FlatScrollbar

Animation 控件显示无声的音频视频动画。AVI 动画类似于电影，由若干帧位图组成。

在 Windows 95 系统中复制文件时，我们可以看到该控件的一个例子：在两个文件夹之间有一张纸（“文件”）在“飘动”：

虽然 AVI 动画可以有声音，但这样的动画不能在 Animation 控件中使用，如果试图装载这样的文件将会产生错误。在该控件中只能使用无声的 AVI 动画。要播放有声的 .avi 文件，请使用 Multimedia (MCI) 控件。有关 MCI 控件的详细说明，请参阅本章后面的“使用 Multimedia 控件”。

注意 在 Visual Basic CD-ROM 的 \Graphics\AVI 目录中可以找到许多无声的 .avi 文件。

在运行时，Animation 控件不具有自己的图文框。

在播放时，Animation 控件使用了一个独立的线程。因此，应用程序不会被阻塞，可以继续在自己的进程中运行。

用途

在对话框中显示出 *** 作的长短和特征。

播放有关应用程序的无声动画，提供使用指导。

使用户能够播放放入该控件的文件。

基本 *** 作：Open、Play、Stop 和 Close 方法

在使用该控件时，可用 Open 方法打开 .avi 文件，用 Play 方法进行播放，用 Stop 方法停止播放。在动画播放完毕以后，可用 Close 方法关闭该文件。在打开新文件之前不必关闭旧文件。

下面的代码使用了两个 CommandButton 控件，cmdPlay 和 cmdStop，以及名为 dlgOpen 的 CommonDialog 控件。将 cmdPlay 的标题设置为“打开并播放”。CommandButton 控件 cmdStop 的标题设置为“停止”。

Private Sub cmdPlay_Click()

'配置一个 CommonDialog 控件，以便用户找到

'要播放的 .avi 文件。CommonDialog

'控件的名称是“dlgOpen”。Animation 控件

'的名称是“anmAVI”。

dlgOpen.Filter = "avi 文件 (*.avi)|*.avi"

dlgOpen.ShowOpen

anmAvi.Open dlgOpen.FileName

anmAVI.Play

End Sub

下面的代码停止播放视频动画：

Private Sub cmdStop_Click()

anmAVI.Stop

End Sub

Play 方法的参数：Repeat、Start 和 Stop

Play 方法有三个参数，即 repeat、start 和 stop，它们决定文件被播放多少遍，从哪一帧开始播放，到哪一帧停止。

如果没有提供 repeat 参数，文件将被连续播放。例如，下面的代码将反复播放同一个文件，直到用户单击了 cmdStop 按钮：

Private Sub cmdPlay_Click()

dlgOpen.Filter = "avi 文件 (*.avi)|*.avi"

dlgOpen.ShowOpen

anmAVI.Open dlgOpen.FileName

'无休无止地播放该文件。

anmAVI.Play

End Sub

Private Sub cmdStop_Click()

anmAVI.Stop

End Sub

下面的代码将播放文件十遍，从第六帧播放到第十六帧（第一帧的帧号为 0）：

anmAVI.Play 10, 5, 15

用 AutoPlay 属性自动播放文件

如果 AutoPlay 属性被设置为 True，该控件在加载文件后将立即进行播放。如果要停止播放文件，只需将 AutoPlay 属性设置为 False，如下面的代码所示：

Private Sub cmdPlay_Click()

'将 AutoPlay 属性设置为 True，在加载

'文件后立即进行播放。这样就无需使用

' Play 方法了。

dlgOpen.Filter = "avi 文件 (*.avi)|*.avi"

dlgOpen.ShowOpen

anmAvi.AutoPlay = True

anmAVI.File = dlgOpen.FileName

End Sub

Private Sub cmdStop_Click()

'将 AutoPlay 设置为 False，以停止播放。

anmAVI.AutoPlay = False

End Sub

用 Center 属性使播放区居中

可以用 Center 属性指定动画是否在该控件中居中播放。如果 Center 属性设置为 False，那么，在运行时该控件会自动根据视频动画的大小设置自身的大小。在设计时，控件的左上角决定了运行时的动画位置：

如果将 Center 属性设置为 True，该控件不会改变自己的大小。而是将动画显示在由该控件定义的区域的正中央，如下所示：

注意 如果在设计时该控件定义的区域小于动画的大小，则动画的边缘部分会被剪裁掉。

发行注意 Animation 控件是能在 Comct232.ocx 文件中找到的一组 ActiveX 控件的一部分。为在应用程序中使用 Animation 控件，必须向工程中添加 Comct232.ocx 文件，当发行应用程序时，在用户的 Microsoft Windows System 或 System 32 目录中安装 Comct232.ocx 文件。有关如何向工程中添加 ActiveX 控件的详细信息，请参阅《 Visual Basic程序员指南 》。

---