Mega Code Archive

 

Categories / VB.Net Tutorial / 2D Graphics

 

Graphics FillPie 2

Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class FillPie    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)         ' Drawing a Pie      Dim g As Graphics = e.Graphics      g.FillPie(New SolidBrush(Color.Red), 0.0F, 0.0F, 100, 60, 0.0F, 90.0F)   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