Binaryworld - GetAnimationFrameCount - Retrieve the number of frames contained in th ... [ VB.net -> Graphics ]

' Retrieve the number of frames contained in the specified image. For non-
' animated images the function returns 1
'
' Example:
'  Dim frameCount As Integer = GetAnimationFrameCount("D:\sample.gif")

Function GetAnimationFrameCount(ByVal imgPath As String) As Integer
  ' load the image
  Dim img As System.Drawing.Image = System.Drawing.Image.FromFile(imgPath)
  Dim fdl As New Drawing.Imaging.FrameDimension(img.FrameDimensionsList(0))
  ' get the frame count
  Dim frameCount As Integer = img.GetFrameCount(fdl)
  ' release the image
  img.Dispose()
  Return frameCount
End Function