VB.Net by API/System.Drawing.Imaging/ImageCodecInfo

ImageCodecInfo.Compression

<source lang="vbnet"> Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms Imports System.Data Imports System.Drawing.Imaging public class MainClass

  public Shared Sub Main
       Dim curBitmap As Bitmap
       Dim imgCodecInfo As ImageCodecInfo = Nothing
       Dim encoder As Encoder
       Dim encoderParam As EncoderParameter
       Dim encoderParams As New EncoderParameters(1)
       curBitmap = New Bitmap("yourfile.jpg")
       Dim j As Integer
       Dim mimeType As String = "image/jpeg"
       Dim encoders() As ImageCodecInfo
       encoders = ImageCodecInfo.GetImageEncoders()
       j = 0
       While j < encoders.Length
           If encoders(j).MimeType = mimeType Then
               imgCodecInfo = encoders(j)
           End If
       End While "
       encoder = encoder.rupression
       encoderParam = New EncoderParameter(encoder, 1, CInt(EncoderParameterValueType.ValueTypeLong), 0)
       encoderParams.Param(0) = encoderParam "
       curBitmap.Save("Shape0.jpg", imgCodecInfo, encoderParams)
  End Sub

End class

 </source>

ImageCodecInfo.GetImageEncoders

<source lang="vbnet"> Imports System.Drawing.Imaging Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class MainClass

  public Shared Sub Main
       Dim imgCodecInfo As ImageCodecInfo = Nothing
       Dim curBitmap As New Bitmap("yourfile.jpg")
       Dim j As Integer
       Dim mimeType As String = "image/png"
       Dim encoders() As ImageCodecInfo
       encoders = ImageCodecInfo.GetImageEncoders()
       j = 0
       While j < encoders.Length
           If encoders(j).MimeType = mimeType Then
               imgCodecInfo = encoders(j)
           End If
       End While " Save as png
       curBitmap.Save("Shape0.png", imgCodecInfo, Nothing)
       curBitmap.Dispose()
  End Sub

End class

 </source>

ImageCodecInfo.MimeType

<source lang="vbnet"> Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms Imports System.Data Imports System.Drawing.Imaging public class MainClass

  public Shared Sub Main
       Dim curBitmap As Bitmap
       Dim imgCodecInfo As ImageCodecInfo = Nothing
       Dim encoder As Encoder
       Dim encoderParam As EncoderParameter
       Dim encoderParams As New EncoderParameters(1)
       curBitmap = New Bitmap("yourfile.jpg")
       Dim j As Integer
       Dim mimeType As String = "image/jpeg"
       Dim encoders() As ImageCodecInfo
       encoders = ImageCodecInfo.GetImageEncoders()
       j = 0
       While j < encoders.Length
           If encoders(j).MimeType = mimeType Then
               imgCodecInfo = encoders(j)
           End If
       End While "
       encoder = encoder.rupression
       encoderParam = New EncoderParameter(encoder, 1, CInt(EncoderParameterValueType.ValueTypeLong), 0)
       encoderParams.Param(0) = encoderParam "
       curBitmap.Save("Shape0.jpg", imgCodecInfo, encoderParams)
  End Sub

End class

 </source>