Flicker Free Graphics !

Upload
Imports System
Imports System.Drawing
Imports System.Drawing.Imaging

Module App
	Sub Main()
		Dim tst As New ImageConverter
		
		tst.ImagePath = "c:\ufr1.bmp"
		tst.ImageType = tst.ImageType.Gif
		tst.Quality = 100
		tst.ConvertImage()
	End Sub
End Module
Public Clas ImageConverter
	Public Enum enumImageTypes
		Bitmap = 0
		Jpeg = 1
		Gif = 2
		Tiff = 3
		Png = 4
	End Enum
	
	Public ImagePath As String
	Public ImageType As enumImageTypes
	Public Quality As Integer
	
	Public Sub ConvertImage()
		Dim newBitmap As Bitmap = New Bitmap(ImagePath)
		Dim imgCodecs() As ImageCodecInfo = ImageCodecInfo.GetImageEncoders()		
		' Set quality Parameter for the Jpeg codec
		Dim imgParams As EncoderParameters = New EncoderParameters(1)
		Dim imgQuality As EncoderParameter = New EncoderParameter(System.Drawing.Imaging.Encoder.Quality, Quality)
		Dim imgExt As String
		
		' Set quality
		imgParams.Param(0) = imgQuality
		
		'Get file extension of codec
		imgExt = imgCodecs(ImageType).FilenameExtension
		imgExt = imgext.SubString(1, imgExt.Length - 1)
		
		newBitmap.Save(ImagePath.SubString(0, ImagePath.Length - 4) + imgExt, imgCodecs(ImageType), imgParams)
		newBitmap.Dispose()
	End Sub
End Clas