原文鏈接：http://hi.baidu.com/coo_boi/item/1264a64172fe8dec1f19bc08

?

還是找了個C++的翻譯下，原文鏈接：http://www.360doc.com/content/05/1122/15/1894_34348.shtml

GDI+的函數聲明?我就不放上了，網上有個做好的GDI+公共模塊。

Private Declare Sub RtlZeroMemory Lib "kernel32" (dest As Any, ByVal numBytes As Long) Private Declare Sub RtlMoveMemory Lib "kernel32" (Destination As Any, Source As Any, ByVal Length As Long) Private Declare Function GetTickCount Lib "kernel32" () As Long Private GifFramesDelay() As Long Private Graphics As LongPrivate Sub Command1_Click()Dim hImage As LongDim Guid As ClsidDim dCount As LongDim fCount As LongDim pItem_() As ByteDim pSize As LongDim pDelay() As LongDim bmpCLSID As ClsidCall GdipLoadImageFromFile(StrPtr("d:\1.gif"), hImage)Guid = GetImageEncoderClsid(GIF)'bmpCLSID = GetImageEncoderClsid(BMP)Call GdipImageGetFrameDimensionsCount(hImage, dCount)Call GdipImageGetFrameDimensionsList(hImage, Guid, dCount)Call GdipImageGetFrameCount(hImage, Guid, fCount)If fCount > 1 ThenCall GdipGetPropertyItemSize(hImage, PropertyTagFrameDelay, pSize)ReDim pItem_(pSize - 1)ReDim GifFramesDelay(fCount - 1)Call RtlZeroMemory(ByVal VarPtr(pItem_(0)), pSize)Call GdipGetPropertyItem(hImage, PropertyTagFrameDelay, pSize, ByVal VarPtr(pItem_(0)))'這里我把最后一個參數的類型（PropertyItem）改成了Any，直接讀內存方便些For i = 16 To pSize - 1 Step 4GifFramesDelay(j) = pItem_(i)j = j + 1NextFor i = 0 To fCount - 1Call GdipImageSelectActiveFrame(hImage, Guid, i)Call GdipDrawImage(Graphics, hImage, 0, 0)Call delay_(GifFramesDelay(i) * 10)'Call GdipSaveImageToFile(hImage, StrPtr("d:\" & i & ".bmp"), bmpCLSID, ByVal 0&)NextEnd IfCall GdipDisposeImage(hImage) End SubPrivate Sub Form_Load()InitGDIPlusCall GdipCreateFromHDC(Form1.hdc, Graphics) End SubPrivate Sub Form_Unload(Cancel As Integer)Call GdipDeleteGraphics(Graphics)TerminateGDIPlus End SubPrivate Sub delay_(ByVal d As Long)Dim n As Longn = GetTickCount()Do Until n + d < GetTickCount()DoEventsLoop End Sub

?

轉載于:https://www.cnblogs.com/lichmama/p/4142682.html

總結

以上是生活随笔為你收集整理的VB6之GIF分解的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。