JPEG Compression : Jpeg « 2D Graphics « VB.Net Tutorial

1. VB.Net Tutorial
2. 2D Graphics
3. Jpeg

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.Compression
        encoderParam = New EncoderParameter(encoder, 1, CInt(EncoderParameterValueType.ValueTypeLong), 0)
        encoderParams.Param(0) = encoderParam '
        curBitmap.Save("Shape0.jpg", imgCodecInfo, encoderParams)
   End Sub
End class