怎么样在VB中使用GIF动画？用picture,image控件肯定不行！！

Question

纯代码：http://www.freevbcode.com/ShowCode.Asp?ID=758

Answer 1

使用 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 SubPlay 方法的参数：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 SubPrivate 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 SubPrivate 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程序员指南 》。

Answer 2

ivt(依纹) 你拷那么多东西累不累啊？
人家要放gif,你给人找一大堆avi,费力不讨好吧