[VB.NET]取得Gif動畫圖檔內含的圖片

January 24, 2010
Private Sub btnFileBrowser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFileBrowser.Click
    If Me.OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
        Me.tbxGifFile.Text = Me.OpenFileDialog1.FileName
        SplitGifFrame(New Bitmap(Me.tbxGifFile.Text))
    End If
End Sub

Private Sub SplitGifFrame(ByVal gifBmp As Bitmap)
    Me.flpGifFrames.Controls.Clear()
    Dim gifFrames() As Bitmap = GetGifFrames(gifBmp)
    flpGifFrames.SuspendLayout()
    For Each frame As Bitmap In gifFrames
        flpGifFrames.Controls.Add(New PictureBox With {.Image = frame})
    Next
    flpGifFrames.ResumeLayout()
    Me.tsslStatus.Text = My.Computer.FileSystem.GetName(Me.tbxGifFile.Text) &amp; " 內含 " &amp; gifFrames.Count.ToString &amp; " 個圖片"
End Sub

Private Function GetGifFrames(ByVal gifBmp As Bitmap) As Bitmap()
    Dim imgFrmDim As Imaging.FrameDimension = New Imaging.FrameDimension(gifBmp.FrameDimensionsList(0))
    Dim gifFrames(gifBmp.GetFrameCount(imgFrmDim) - 1) As Bitmap
    For photoIdx As Integer = 0 To gifFrames.Count - 1
        gifBmp.SelectActiveFrame(imgFrmDim, photoIdx)
        gifFrames(photoIdx) = New Bitmap(gifBmp)
    Next
    Return gifFrames
End Function
End Class
VB.NET