VB中的 Animation控件 是干什么用的啊谁能教教我啊大神们帮帮忙

发布网友 发布时间：2022-04-06 12:32

我来回答

共1个回答

热心网友 时间：2022-04-06 14:02

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程序员指南 》。