Mega Code Archive

 

Categories / VB.Net Tutorial / 2D Graphics

 

Create Gif file

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.gif", ImageFormat.Gif)    End Sub End class