Grafik Çizim Örnekler

Formunuzun Paint yordamına aşağıdaki kodları yazacağız. Bu örnekte, çizgi çizmeyi, elips oluşturmayı, dikdörtgen oluşturup içini boyamayı vb. örnekleri göreceğiz. (Şekil 1)

Şekil 1

Form1.vb

Public Class Form1

    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint

        Dim grafik As Graphics

        grafik = Me.CreateGraphics

        Dim PenColor As New Pen(Color.Red)

        'Kırmızı çizgi çizeceğiz.

        grafik.DrawLine(PenColor, 20, 30, 100, 80)

        'Kırmızı elips çizeceğiz.

        grafik.DrawEllipse(PenColor, 10, 120, 200, 160)

        'Oluşturacağımız diktdörtgenin içini yeşile boyuyoruz.

        Dim BrushColor As New SolidBrush(Color.Green)

        grafik.FillRectangle(BrushColor, 150, 10, 250, 100)

        'Oluşturacağımız noktaları eğeceğiz.

        Dim nokta() As Point = {New Point(358, 280), New Point(300, 320), New Point(275, 155), New Point(350, 180)}

        For i As Single = 0 To 2.5 Step 0.5

            grafik.DrawCurve(Pens.DodgerBlue, nokta, i)

        Next

    End Sub

End Class

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek dileğiyle. Hoşçakalın. Bahadır ŞAHİN