众说周知，GIF格式动画文件具有小巧、制作方便等特点，因此在网上得到广泛应用，在vb的pictureBox和image控件添加图片后变成静止的了，这给我们设计VB应用程序带来了不便。原来以为实现起来特别的麻烦，又要注册控件，还得添加部件。通过学习方法特别很多，而且并没有多麻烦：
@H_502_6@首先、需要注册，注册方法：在工程中选中“引用”→引用项目ActiveMovie Control type Libray→然后点击“确定”键即可。
@H_502_6@其次、'在PictureBox控件中显示GIF动画（图片）,凡有句柄hwnd的窗体控件均可以；在窗体Form1上添加2个命令按钮Command1,Command2和1个图片框控件Picture1。
'调用运动图像类型库Quartz.dll,在c:\windows\system32目录下
Private pMC As FilgraphManager '定义pMC为FilgraphManager对像
Private pVW As IVideoWindow '定义pVW为IVideoWindow对像
@H_502_6@（2）、command1的单击事件
PrivateSub Command1_Click() On Error Resume Next Set pMC = New FilgraphManager pMC.Stop pMC.RenderFile "" '加载GIF文件 OnErrorGoTo Lhandle ' pMC.RenderFile App.Path & "\enter.gif" '加载GIF动画（图片） pMC.RenderFile App.Path & "\20110606.jpg" OnErrorResumeNext Set pVW = pMC pVW.WindowStyle = CLng(&H6000000) '限定动画在Picture1的大小中 pVW.Left = 0 pVW.Top = 0 pVW.Width = Picture1.ScaleWidth pVW.Height = Picture1.ScaleHeight pVW.Owner = Picture1.hWnd '在Picture1中显示 pVW.MessageDrain = Picture1.hWnd '此行非常重要，用来定义动画的右键菜单所必须 pMC.Run Exit Sub Lhandle: MsgBox ("Load Error！") End Sub
@H_502_6@（3）、command2的单击事件
Private Sub Command2_Click()
pMC.Stop
Set pVW = Nothing
Set pMC = Nothing
End Sub
（4）、窗体的下载事件
PrivateSub Form_Load() Me.ScaleMode = 3 Picture1.ScaleMode = 3 End Sub
@H_502_6@ 由于image控件没有句柄，实现起来有点麻烦，而且效果不是很好，基本的过程和代码是一样，只是有点稍微的区别
首先、注册跟上面一样。
@H_502_6@ 其次、在窗体Form1上添加2个命令按钮Command1,Command2和1个图片框控件image1
@H_502_6@'调用运动图像类型库Quartz.dll,在c:\windows\system32目录下
Private pMC As FilgraphManager
Private pVW As IVideoWindow
@H_502_6@（2）、command1的单击事件
Private Sub Command1_Click()
On Error Resume Next
Set pMC = New FilgraphManager
pMC.Stop
pMC.RenderFile ""
'加载GIF文件
On Error GoTo Lhandle
pMC.RenderFile "c:\1.gif" '加载GIF动画（图片）
'On Error Resume Next
Set pVW = pMC
pVW.WindowStyle = CLng(&H6000000)
pVW.Left = 0
pVW.Top = 0
pVW.Width = Image1.Width / Screen.TwipsPerPixelX
pVW.Height = Image1.Height / Screen.TwipsPerPixelY
pVW.Owner = 0
pVW.MessageDrain = 0
pMC.Run
Exit Sub
Lhandle:
MsgBox ("加载文件错误！")
End Sub
@H_502_6@（3）、command2的单击事件
Private Sub Command2_Click()
pMC.Stop
Set pVW = Nothing
Set pMC = Nothing
End Sub
@H_502_6@（4）、窗体的初始化
Private Sub Form_Load() Image1.Visible = False Image1.Width = Screen.TwipsPerPixelX Image1.Height = Screen.TwipsPerPixelY Set Image1.Picture = LoadPicture("c:\1.gif") End Sub
@H_502_6@ 绿色是代码不相同的地方，控件不同，添加的gif的图片最终实现的效果也不相同。
@H_502_6@二、一个全新的处理方案:通过在VB中调用IE浏览器来实现GIF动画的播放，实际使用表明：效果甚好。
@H_502_6@1．由于WebBrowser控件并不是VB的基本控件，因此在使用该控件之前必须先将其装入工具箱中。装入方法：在工具箱中点击鼠标右键→选中“部件”→复选Microsoft Internet Controls→然后点击“确定”键即可或在工程中选中“部件”→复选Microsoft Internet Controls→然后点击“确定”键即可。
@H_502_6@2．选取WebBrowser控件，添加到窗体的相应位置上。
@H_502_6@3．设计相应代码，通过使用WebBrowser控件的Navigate方法播放GIF动画文件。
@H_502_6@WebBrowser控件名.NavigateURL[Flags，][TargetFrameName，][PostData，][Headers]
@H_502_6@WebBrowser控件支持的主要方法有:
@H_502_6@GoBack: 回退到上一屏。
@H_502_6@GoForward: 进入到下一屏。
@H_502_6@GoHome: 回家。即回到主页。
@H_502_6@Stop: 停止导航。
@H_502_6@Refresh: 刷新。
@H_502_6@Navigate:导航。
@H_502_6@WebBrowser控件所响应的事件:
@H_502_6@BeforeNavigate事件: 在开始导航前发生。一般在此获取完整的URL字符串。
@H_502_6@WebBrowser控件最主要的参数: URL: 获得导航用的标准URL字符串。例如：它能将”www.MicroSoft.Com”自动翻译为“http://www.MicroSoft.com”.URL是Uniform Resource Locator的缩写，是在Internet的WWW服务程序上用于指定信息位置的表示方法。
下面我们结合一个实例进行具体说明：动画用WebBrowser控件实现播放。
@H_502_6@所需控件： WebBrowser控件
Private Sub Form_Load() ’在Form_Load()事件中进行初始化工作
WebBrowser1.Navigate(App.Path& "new1.gif ")
end sub
三、最麻烦的方法
用PictureBox控件或Image控件或窗体的背景图片来显示动的图片，可以考虑用Timer控件使每隔一定的时间就更改一次控件的Picture属性来切换控件的图片以达到动画的效果。
首先要用Gif编辑软件将Gif图片中的一个个小图片另存到“C:\新建文件夹\”中，并依次重命名为0.gif、1.gif、2.gif……
然后写代码：
Dim i As Integer
Private Sub Timer1_Timer()
On Error Goto Err
url = "C:\新建文件夹\" & i & ".gif"
Me.Picture = LoadPicture url
i = i + 1
Exit Sub
Err:
i = 0
Exit Sub 原文链接：https://www.f2er.com/vb/260049.html