‘ 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()
‘ 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
‘ 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)
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.
‘ 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
‘ 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
‘ 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 =