Create Jpeg File : Jpeg « 2D Graphics « VB.Net Tutorial

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

Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Drawing.Imaging

public class MainClass
   public Shared Sub Main
        Dim bm As New Bitmap(256, 256)

        Dim gr As Graphics = Graphics.FromImage(bm)
        gr.Clear(Color.White)
        gr.DrawEllipse(Pens.Red, 0, 0, bm.Width - 1, bm.Height - 1)
        gr.DrawLine(Pens.Green, 0, 0, bm.Width - 1, bm.Height - 1)
        gr.DrawLine(Pens.Blue, bm.Width - 1, 0, 0, bm.Height - 1)

        ' Save the result as a JPEG file.
        
        bm.Save("test.jpg", ImageFormat.Jpeg)

   End Sub
End class