ImageFormat.Jpeg : ImageFormat « System.Drawing.Imaging « VB.Net by API

1. VB.Net by API
2. System.Drawing.Imaging
3. ImageFormat

ImageFormat.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

   
    
  

Related examples in the same category