Save an Image to PNG File : PNG « 2D « VB.Net

1. VB.Net
2. 2D
3. PNG

Save an Image to PNG File

Imports System
Imports System.Windows.Forms
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Drawing.Imaging
Imports System.Drawing

Public Class MainClass

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

        ' Draw on it.
        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.PNG", ImageFormat.Png)
   End Sub 

End Class



           
       

Related examples in the same category