ngo is an independent consultant, developer, author, and trainer based in Vienna, Austria. His books “Advanced .NET Remoting” and “Advanced .NET Remoting in VB.NET” were published by Apress in 2002.
‘ This class loads an animated image and gives access to all its internal ‘ frames as Bitmap objects” Example:’ ‘ load the animation and extract its frames’ Me.Cursor =
‘ Convert a bitmap to greyscale – the function returns a new bitmap,’ it does not directly modify the input image.’ Note: requires the GetGreyScale function” Example:’ Dim bmp As
‘ 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)
‘ Convert a color to greyscale’ Example: Me.BackColor = GetGreyScale(Color.Red)Function GetGreyScale(ByVal col As Color) As Color Dim greyValue As Integer = CType(col.R * 0.3 + col.G * 0.59 + col.B
‘ Return the format of the input image, according on its extension’ Example: Dim imgFormat As System.Drawing.imaging.ImageFormat = GetImageFormat’ (“D:sample.gif”)Function GetImageFormat(ByVal imgPath As String) As _ System.Drawing.imaging.ImageFormat imgPath = imgPath.ToLower()
‘ Resize the specified image file – The new dimensions are expressed in ‘ percentage of the original size.’ The resized image overwrites the original file.’ Note: requires the GetImageFormat