' 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() If imgPath.EndsWith(".bmp") Then Return System.Drawing.Imaging.ImageFormat.Bmp ElseIf imgPath.EndsWith(".emf") Then Return System.Drawing.Imaging.ImageFormat.Emf ElseIf imgPath.EndsWith(".gif") Then Return System.Drawing.Imaging.ImageFormat.Gif ElseIf imgPath.EndsWith(".ico") Then Return System.Drawing.Imaging.ImageFormat.Icon ElseIf imgPath.EndsWith(".jpg") OrElse imgPath.EndsWith(".jpeg") Then Return System.Drawing.Imaging.ImageFormat.Jpeg ElseIf imgPath.EndsWith(".png") Then Return System.Drawing.Imaging.ImageFormat.Png ElseIf imgPath.EndsWith(".tif") OrElse imgPath.EndsWith(".tiff") Then Return System.Drawing.Imaging.ImageFormat.Tiff ElseIf imgPath.EndsWith(".wmf") Then Return System.Drawing.Imaging.ImageFormat.Wmf Else Return System.Drawing.Imaging.ImageFormat.Gif End IfEnd Function
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
