Mega Code Archive

 

Categories / VB.Net by API / System Drawing Imaging

 

ImageFormat Bmp

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)         bm.Save("test.bmp", ImageFormat.Bmp)    End Sub End class