VB中的　　Animation控件 是干什么用的啊谁能教教我啊

VB Animation控件怎么添加?~

Microsoft Windows Common Controls 2 6.0
MSCOMCT2.OCX Animation, UpDown, MonthView, DTPicker, FlatScrollbar

C：/WINDOWS/System32/shell32.dll XP删除动画 在这个DLL的资源里 你自己下载个 资源查看工具 提取下 然后用Animation控件播放即可

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

---

赤峰市19462587752： VB中的Animation控件 是干什么用的啊谁能教教我啊 - ？
步霍补中： Animation 控件显示无声的音频视频动画.AVI 动画类似于电影,由若干帧位图组成.在 Windows 95 系统中复制文件时,我们可以看到该控件的一个例子:在两个文件夹之间有一张纸(“文件”)在“飘动”: 虽然 AVI 动画可以有声音,但...

赤峰市19462587752： 请问在VB中用那个控件可以播放视频文件 - ？
步霍补中： 看你是什么格式的视频了,VB本身的自带(Microsoft Windows Common Controls-2 6.0 (SP6)里的Animation)的只能播放AVI,要想播放其他视频格式,可以引用第三方控件,如:Windows Media Player、RealPlayer等.

赤峰市19462587752： VB Animation控件怎么添加? - ？
步霍补中： Microsoft Windows Common Controls 2 6.0 MSCOMCT2.OCX Animation, UpDown, MonthView, DTPicker, FlatScrollbar

赤峰市19462587752： 关于vb打开avi文件的程序插入了一个Animation1控件程 ？
步霍补中： 【1】该控件中只能使用无声的AVI动画.要播放有声的.avi文件,请使用Multimedia控件(MCI). 【2】播放无声的AVI动画 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

赤峰市19462587752： vb中animation控件加视屏的代码,在线等 - ？
步霍补中： animation1.Open App.Path & ＂\复制.avi＂

赤峰市19462587752： vb中怎么添加动画 - ？
步霍补中： 1.添加可播放rmvb格式视频的控件.如果不一定要播放rmvb的话,可用微软自带的Media控件,如果一定要rmvb的话,就要上网找了,一般你如果有安装视频播放软件的话,一般都可以在该软件的安装路径有相关的dll可以调用.2.同样可以找一些可以支援gif的图片控件.也可以自己做一个自定义控件(piturcebox+timer就可以了).

赤峰市19462587752： 请问在VB中用那个控件可以播放flv视频文件 - ？
步霍补中： 使用animation控件,在SP6包中

赤峰市19462587752： vb的程序,运行时出现animation gif control - ？
步霍补中： 你好,出现这类提示,应该是你程序中使用了gif类的控件.建议检查控件相关代码是否写对了.

赤峰市19462587752： VB 控件(animation控件) - ？
步霍补中： 详细的列表:其中 Microsoft Windows Common Controls 2 6.0 MSCOMCT2.OCX Animation, UpDown, MonthView, DTPicker, FlatScrollbar 部件名 文件名 控件 Microsoft ADO Data Control 6.0 MSADODC.OCX ADO Data Control Microsoft Chart ...

赤峰市19462587752： 浅谈VB在编程中如何实现添加动画小精灵 - ？
步霍补中： 1、Animation 控件允许创建按钮,当单击它时即显示动画,如 .avi 文件.该控件只能播放无声的 AVI 文件.此外,动画控件只能显示未压缩的或已用行程编码 (RLE) 压缩的 .avi 文件.2、Multimedia MCI 控件MCI 控件还支持 Windows (*.avi) 视频文件的回放.3、WindowsMediaPlayer4、还可以使用其它第三方播放插件如gif98a等动画可以使用flash,photoshpe等软件制作.