VB.Net by API/System.Drawing.Drawing2D/LineCap

LineCap.ArrowAnchor

<source lang="vbnet"> Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class LineCapAllStyles

  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 x As Integer = 5
       Dim y As Integer = 17
       Dim the_pen As New Pen(Color.Black, 10)
       DrawLine(e.Graphics, x, y, Drawing2D.LineCap.AnchorMask)
       DrawLine(e.Graphics, x, y, Drawing2D.LineCap.ArrowAnchor)
       DrawLine(e.Graphics, x, y, Drawing2D.LineCap.DiamondAnchor)
       DrawLine(e.Graphics, x, y, Drawing2D.LineCap.Flat)
   End Sub
   Private Sub DrawLine(ByVal gr As Graphics, ByRef x As Integer, ByRef y As Integer, ByVal style As Drawing2D.LineCap)
       Dim the_pen As New Pen(Color.Black, 10)
       the_pen.EndCap = style
       gr.DrawString(style.ToString, Me.Font, Brushes.Black, x, y - 5)
       gr.DrawLine(the_pen, x + 100, y, x + 150, y)
       y += 25
   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

 </source>

LineCap.Triangle

<source lang="vbnet"> Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class GetCapStyles

  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)
       Dim blackPen As New Pen(Color.Black, 10)
       blackPen.StartCap = LineCap.Triangle
       blackPen.EndCap = LineCap.Triangle
       g.DrawLine(blackPen, 20, 10, 200, 10)
       blackPen.StartCap = LineCap.Square
       blackPen.EndCap = LineCap.Square
       g.DrawLine(blackPen, 20, 30, 200, 30)
       blackPen.StartCap = LineCap.ArrowAnchor
       blackPen.EndCap = LineCap.ArrowAnchor
       g.DrawLine(blackPen, 20, 50, 200, 50)
       blackPen.StartCap = LineCap.DiamondAnchor
       blackPen.EndCap = LineCap.DiamondAnchor
       g.DrawLine(blackPen, 20, 70, 200, 70)
       blackPen.StartCap = LineCap.Flat
       blackPen.EndCap = LineCap.Flat
       g.DrawLine(blackPen, 20, 90, 200, 90)
       blackPen.StartCap = LineCap.Round
       blackPen.EndCap = LineCap.Round
       g.DrawLine(blackPen, 20, 110, 200, 110)
       blackPen.StartCap = LineCap.RoundAnchor
       blackPen.EndCap = LineCap.RoundAnchor
       g.DrawLine(blackPen, 20, 130, 200, 130)
       blackPen.StartCap = LineCap.Square
       blackPen.EndCap = LineCap.Square
       g.DrawLine(blackPen, 20, 150, 200, 150)
       blackPen.StartCap = LineCap.SquareAnchor
       blackPen.EndCap = LineCap.SquareAnchor
       g.DrawLine(blackPen, 20, 170, 200, 170)
       blackPen.StartCap = LineCap.Flat
       blackPen.EndCap = LineCap.Flat
       g.DrawLine(blackPen, 20, 190, 200, 190)
       " Dispose
       blackPen.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

 </source>