‘/// ‘/// Provides static (Shared) methods to find the’/// ImageFormat for a filename or MIME type.’/// Public NotInheritable Class ImageFormatUtils Private Shared codecs() As ImageCodecInfo Private Shared formats As Hashtable
‘ Join a variable number of binary files into a single file” Params:’ – resultFile: the complete path of the result file you want to create’ – sourceFiles: the sequence
Visual Basic includes the Immediate If function (IIf), but VBScript (VBS) does not. However, you can copy this code to VBS to allow the IIf function to be used: ‘VB
This is a very straightforward loop comparing every element in the array with the key. As soon as an equal value is found, it returns. If the loop finishes without
‘ 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
‘ 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
‘ 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 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