????????眾說周知，GIF格式動(dòng)畫文件具有小巧、制作方便等特點(diǎn)，因此在網(wǎng)上得到廣泛應(yīng)用，在vb的picturebox和image控件添加圖片后變成靜止的了，這給我們?cè)O(shè)計(jì)VB應(yīng)用程序帶來了不便。原來以為實(shí)現(xiàn)起來特別的麻煩，又要注冊(cè)控件，還得添加部件。通過學(xué)習(xí)方法特別很多，而且并沒有多麻煩：

一、最簡(jiǎn)單的方法

1、在picturebox控件中添加gif格式圖片

???????首先、需要注冊(cè)，注冊(cè)方法：在工程中選中“引用”→引用項(xiàng)目ActiveMovie Control type Libray→然后點(diǎn)擊“確定”鍵即可。

???????其次、'在PictureBox控件中顯示GIF動(dòng)畫（圖片）,凡有句柄hwnd的窗體控件均可以；在窗體Form1上添加2個(gè)命令按鈕Command1,Command2和1個(gè)圖片框控件Picture1。

（1）、在代碼窗口的通用段添加：

'調(diào)用運(yùn)動(dòng)圖像類型庫(kù)Quartz.dll,在c:\windows\system32目錄下Private pMC As FilgraphManager '定義pMC為FilgraphManager對(duì)像Private pVW As IVideoWindow '定義pVW為IVideoWindow對(duì)像

（2）、command1的單擊事件

PrivateSub Command1_Click()On Error Resume NextSet pMC = New FilgraphManagerpMC.StoppMC.RenderFile ""'加載GIF文件OnErrorGoTo Lhandle' pMC.RenderFile App.Path & "\enter.gif" '加載GIF動(dòng)畫（圖片）pMC.RenderFile App.Path & "\20110606.jpg"OnErrorResumeNextSet pVW = pMCpVW.WindowStyle = CLng(&H6000000)'限定動(dòng)畫在Picture1的大小中pVW.Left = 0pVW.Top = 0 pVW.Width = Picture1.ScaleWidthpVW.Height = Picture1.ScaleHeightpVW.Owner = Picture1.hWnd '在Picture1中顯示pVW.MessageDrain = Picture1.hWnd '此行非常重要，用來定義動(dòng)畫的右鍵菜單所必須 pMC.RunExit SubLhandle:MsgBox ("Load Error！")End Sub

（3）、command2的單擊事件

Private Sub Command2_Click()pMC.StopSet pVW = NothingSet pMC = NothingEnd Sub

?（4）、窗體的下載事件

PrivateSub Form_Load() Me.ScaleMode = 3Picture1.ScaleMode = 3End Sub

?2、在image控件中添加gif格式圖片中

????? 由于image控件沒有句柄，實(shí)現(xiàn)起來有點(diǎn)麻煩，而且效果不是很好，基本的過程和代碼是一樣，只是有點(diǎn)稍微的區(qū)別

?????? 首先、注冊(cè)跟上面一樣。

?????? 其次、在窗體Form1上添加2個(gè)命令按鈕Command1,Command2和1個(gè)圖片框控件image1

（1）、在代碼窗口的通用段添加：

?'調(diào)用運(yùn)動(dòng)圖像類型庫(kù)Quartz.dll,在c:\windows\system32目錄下

Private pMC As FilgraphManager

Private pVW As IVideoWindow

（2）、command1的單擊事件

Private Sub Command1_Click()On Error Resume NextSet pMC = New FilgraphManagerpMC.StoppMC.RenderFile ""'加載GIF文件On Error GoTo LhandlepMC.RenderFile "c:\1.gif" '加載GIF動(dòng)畫（圖片）'On Error Resume NextSet pVW = pMCpVW.WindowStyle = CLng(&H6000000)pVW.Left = 0pVW.Top = 0pVW.Width = Image1.Width / Screen.TwipsPerPixelXpVW.Height = Image1.Height / Screen.TwipsPerPixelYpVW.Owner = 0pVW.MessageDrain = 0pMC.RunExit SubLhandle:MsgBox ("加載文件錯(cuò)誤！")End Sub

（3）、command2的單擊事件

Private Sub Command2_Click()pMC.StopSet pVW = NothingSet pMC = NothingEnd Sub

（4）、窗體的初始化

Private Sub Form_Load()Image1.Visible = False Image1.Width = Screen.TwipsPerPixelXImage1.Height = Screen.TwipsPerPixelYSet Image1.Picture = LoadPicture("c:\1.gif")End Sub

???? 綠色是代碼不相同的地方，控件不同，添加的gif的圖片最終實(shí)現(xiàn)的效果也不相同。

二、一個(gè)全新的處理方案:通過在VB中調(diào)用IE瀏覽器來實(shí)現(xiàn)GIF動(dòng)畫的播放，實(shí)際使用表明：效果甚好。

具體方法如下：

1．由于WebBrowser控件并不是VB的基本控件，因此在使用該控件之前必須先將其裝入工具箱中。裝入方法：在工具箱中點(diǎn)擊鼠標(biāo)右鍵→選中“部件”→復(fù)選Microsoft ? Internet ? Controls→然后點(diǎn)擊“確定”鍵即可或在工程中選中“部件”→復(fù)選Microsoft ? Internet ? Controls→然后點(diǎn)擊“確定”鍵即可。

2．選取WebBrowser控件，添加到窗體的相應(yīng)位置上。

3．設(shè)計(jì)相應(yīng)代碼，通過使用WebBrowser控件的Navigate方法播放GIF動(dòng)畫文件。

Navigate方法的語(yǔ)法格式為：

WebBrowser控件名.NavigateURL[Flags，][TargetFrameName，][PostData，][Headers]

WebBrowser控件支持的主要方法有:

GoBack: ? 回退到上一屏。

GoForward: ? 進(jìn)入到下一屏。

GoHome: ? 回家。即回到主頁(yè)。

Stop: ? 停止導(dǎo)航。

Refresh: ? 刷新。

Navigate:導(dǎo)航。

WebBrowser控件所響應(yīng)的事件:

BeforeNavigate事件: ? 在開始導(dǎo)航前發(fā)生。一般在此獲取完整的URL字符串。

WebBrowser控件最主要的參數(shù): URL: ? 獲得導(dǎo)航用的標(biāo)準(zhǔn)URL字符串。例如：它能將”www.MicroSoft.Com”自動(dòng)翻譯為“http://www.MicroSoft.com”.URL是Uniform ? Resource ? Locator的縮寫，是在Internet的WWW服務(wù)程序上用于指定信息位置的表示方法。

下面我們結(jié)合一個(gè)實(shí)例進(jìn)行具體說明：動(dòng)畫用WebBrowser控件實(shí)現(xiàn)播放。

所需控件： WebBrowser控件

Private Sub Form_Load() ’在Form_Load()事件中進(jìn)行初始化工作WebBrowser1.Navigate(App.Path& "new1.gif ")end sub

三、最麻煩的方法

用PictureBox控件或Image控件或窗體的背景圖片來顯示動(dòng)的圖片，可以考慮用Timer控件使每隔一定的時(shí)間就更改一次控件的Picture屬性來切換控件的圖片以達(dá)到動(dòng)畫的效果。

首先要用Gif編輯軟件將Gif圖片中的一個(gè)個(gè)小圖片另存到“C:\新建文件夾\”中，并依次重命名為0.gif、1.gif、2.gif……

然后寫代碼：

Dim i As IntegerPrivate 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

轉(zhuǎn)載于:https://www.cnblogs.com/ainima/archive/2012/04/28/6331088.html

總結(jié)

以上是生活随笔為你收集整理的vb添加GIF动态图片的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。