Mega Code Archive

 

Categories / VB.Net by API / System Drawing Imaging

 

ImageFormat Png

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