Description

To support arcs, the Graphics class is equipped with the DrawArc() method that is provided in four versions whose syntaxes are:

Public Sub DrawArc ( _
	pen As Pen, _
	rect As Rectangle, _
	startAngle As Single, _
	sweepAngle As Single _
)
Public Sub DrawArc ( _
	pen As Pen, _
	rect As RectangleF, _
	startAngle As Single, _
	sweepAngle As Single _
)
Public Sub DrawArc ( _
	pen As Pen, _
	x As Integer, _
	y As Integer, _
	width As Integer, _
	height As Integer, _
	startAngle As Integer, _
	sweepAngle As Integer _
)
Public Sub DrawArc ( _
	pen As Pen, _
	x As Single, _
	y As Single, _
	width As Single, _
	height As Single, _
	startAngle As Single, _
	sweepAngle As Single _
)

The ellipse that would contain the arc must be drawn in a Rectangle or a RectangleF rect. You can also define that ellipse by the coordinates of its inscribed rectangle x, y, and its dimensions width, height.  Besides the borders of the rectangle in which the arc would fit, an arc must specify its starting angle, startAngle, measured clockwise from the x-axis its starting point. An arc must also determine its sweep angle measured clockwise from the startAngle parameter to the end of the arc. These two value follow the same definitions we reviewed for the Graphics.Pie() method.

Here is an example:

Imports System.Drawing
Imports System.Windows.Forms

Module Exercise

    Public Class Starter
        Inherits Form

        Dim components As System.ComponentModel.Container

        Public Sub New()
            InitializeComponent()
        End Sub

        Public Sub InitializeComponent()

        End Sub

        Private Sub FormPaint(ByVal sender As Object, _
                              ByVal e As PaintEventArgs) _
                              Handles MyBase.Paint

            Dim penCurrent As Pen = New Pen(Color.Red)
            e.Graphics.DrawArc(penCurrent, 20, 20, 200, 150, 225, 200)

        End Sub
    End Class

    Function Main() As Integer

        Dim frmStart As Starter = New Starter

        Application.Run(frmStart)

        Return 0
    End Function

End Module