visaul basic,비주얼베이직,vb .net 강좌-사각형,원 기본도형그리기,FillReDrawRectanglectangle,FillEllipse,Pens,Brushes

Public Class Form1

    Dim g As Graphics

    Dim x As Integer = 100

    Dim y As Integer = 100

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load

        g = Me.CreateGraphics

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        g.DrawRectangle(Pens.Blue, x, y, 100, 100)

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        g.FillEllipse(Brushes.Orange, x + 150, y, 100, 100)

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        g.FillRectangle(Brushes.BurlyWood, x + 300, y, 100, 100)

    End Sub

End Class