Graphics.DrawLine(Pen p, Int x, Int y, Int x1, Int y1) : Graphics « System.Drawing « VB.Net by API

1. VB.Net by API
2. System.Drawing
3. Graphics

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

   
    
  

Related examples in the same category