VB.Net Tutorial/2D Graphics/Circle

Материал из VB Эксперт
Версия от 15:54, 26 мая 2010; Admin (обсуждение | вклад) (1 версия)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

Draw circle

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

  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 a As Graphics =  e.Graphics
       Dim mypen As Pen
       Dim myrect As RectangleF
       mypen = New Pen(System.Drawing.Color.Red, 6)
       a = Me.CreateGraphics
       a.Clear(Me.BackColor)
       a.DrawEllipse(mypen, 100, 100, 50, 50)
       a.DrawEllipse(mypen, 75, 75, 100, 100)
       a.DrawEllipse(mypen, 25, 25, 200, 200)
       a.DrawEllipse(mypen, 0, 0, 250, 250)
       myrect.X = 300
       myrect.Y = 10
       myrect.Width = 250
       myrect.Height = 100
       a.DrawEllipse(mypen, myrect)
       myrect.X = 400
       myrect.Y = 10
       myrect.Width = 100
       myrect.Height = 250
       a.DrawEllipse(mypen, myrect)
       a.Dispose()
       mypen.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>