1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
e.Graphics.FillEllipse(Brushes.DarkGreen, 100, 100, 75, 75)
End Sub
Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
Using aBrush1 As New SolidBrush(Color.White), _
formGraphics As Graphics = Me.CreateGraphics()
formGraphics.FillEllipse(aBrush1, New Rectangle(100, 50, 100, 100))
End Using
End Sub
End Class |
Partager