Mega Code Archive

 

Categories / VB.Net by API / System Drawing

 

Graphics DrawLine(Pen p, Int x, Int y, Int x1, Int y1)

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