이미지 포맷변환

- 출처: http://www.freevbcode.com/ShowCode.asp?ID=5799

 

Imports System.IO.Path
Imports System.Drawing.Imaging

 

Public Function ConvertBMP(ByVal BMPFullPath As String, _
 ByVal imgFormat As ImageFormat) As Boolean

 Dim bAns As Boolean
 Dim sNewFile As String

 Try
  'bitmap class in system.drawing.imaging
  Dim objBmp As New Bitmap(BMPFullPath)

  'below 2 functions in system.io.path
  sNewFile = GetDirectoryName(BMPFullPath)
  sNewFile &= GetFileNameWithoutExtension(BMPFullPath)

  sNewFile &= "." & imgFormat.ToString
  objBmp.Save(sNewFile, imgFormat)

  bAns = True 'return true on success
 Catch
  bAns = False 'return false on error
 End Try
 Return bAns

End Function

'USAGE
'ConvertBMP("C:\test.bmp", ImageFormat.Jpeg)
'ConvertBMP("C:\test.bmp", ImageFormat.Emf)
'ConvertBMP("C:\test.bmp", ImageFormat.Exif)
'ConvertBMP("C:\test.bmp", ImageFormat.Gif)
'ConvertBMP("C:\test.bmp", ImageFormat.Icon)
'ConvertBMP("C:\test.bmp", ImageFormat.MemoryBmp)
'ConvertBMP("C:\test.bmp", ImageFormat.Png)
'ConvertBMP("C:\test.bmp", ImageFormat.Tiff)
'ConvertBMP("C:\test.bmp", ImageFormat.Wmf)

 

[출처] [VB.NET] BMP를 다른 이미지 포맷으로 변경하기|작성자 해피포터