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

ImageCodecInfo.Compression

  
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

ImageCodecInfo.GetImageEncoders

  
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

ImageCodecInfo.MimeType

  
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