Mega Code Archive

 

Categories / VB.Net / 2D Graphics

 

Convert Image Format

Public Class MainClass     Public Shared Sub Main()         ConvertImage("sample.gif", System.Drawing.Imaging.ImageFormat.Bmp, "new.bmp")     End Sub     Public Shared Sub ConvertImage(ByVal Filename As String, ByVal DesiredFormat As System.Drawing.Imaging.ImageFormat, ByVal NewFilename As String)         Try             Dim imgFile As System.Drawing.Image = System.Drawing.Image.FromFile(Filename)             imgFile.Save(NewFilename, DesiredFormat)         Catch ex As Exception             Throw ex         End Try     End Sub End Class