‘ Return a reference to the control that caused the last postback,’ even from the Page_Load event!’ It requires in input a reference to the posted-back page’ (this is necessary
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
‘ 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
‘ 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)
‘ 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