Mega Code Archive

 
Categories / VB.Net Tutorial / 2D Graphics
 

Create a Graphics path

Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class CreateAGraphicsPath    public Shared Sub Main         Application.Run(New Form1)    End Sub End class public class Form1   Inherits System.Windows.Forms.Form   Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)         Dim g As Graphics = Me.CreateGraphics()         g.Clear(Me.BackColor)         g.SmoothingMode = SmoothingMode.AntiAlias         ' Create a Graphics path         Dim path As New GraphicsPath         ' Add two lines, a rectangle, and          ' an ellipse         path.AddLine(20, 20, 200, 20)         path.AddLine(20, 20, 20, 200)         path.AddRectangle(New Rectangle(30, 30, 100, 100))         path.AddEllipse(New Rectangle(50, 50, 60, 60))         ' Draw path         Dim redPen As New Pen(Color.Red, 2)         g.DrawPath(redPen, path)         g.FillPath(New SolidBrush(Color.Black), path)         ' Dispose         redPen.Dispose()         g.Dispose()   End Sub   Public Sub New()         MyBase.New()     Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)     Me.ClientSize = New System.Drawing.Size(292, 273)     Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen   End Sub End Class