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)

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

Share This:

Facebook Twitter Pinterest Linkedin Whatsapp Whatsapp

About Bahadır Şahin

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.