Forma yazı yazma ve geometrik şekiller çizme VB.NET

[/code]

Public Class Form1
Dim g As Graphics 'g isimli grafik işlemleri yapacağım değişenimi tanımlıyorum.
Dim fontum = New Font("tahoma", 15) 'Kullanacağım yazı fontunu özellikilerini oluşturuyorum. Kullanımı: (yazı tipi,yazı boyutu)
Dim fircam = New SolidBrush(Color.Red) 'Kullanacağım fırçayı özellikilerini oluşturuyorum. Kullanımı: (fırça rengi)
Dim kalemim = New Pen(Color.Red, 2) 'Kullanacağım kalemin özellikilerini oluşturuyorum. Kullanımı: (kalem rengi,kalem uç kalınlığı)

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Select Case ComboBox1.Text 'Comboda seçili olan
Case "Çember" 'Çember ise
g = Me.CreateGraphics() 'grafik oluşturmaya başla
g.Clear(Me.BackColor) 'Ekranı temizle
g.DrawEllipse(kalemim, 120, 50, 80, 80) 'bundan sonraki şekilller için gerekli değerleri yazdım
g.Dispose() 'Hafıza kaybı olmasın diye grafik oluşumundan çıkışı sağladım
Case "Elips"
g = Me.CreateGraphics()
g.Clear(Me.BackColor)
g.DrawEllipse(kalemim, 120, 50, 100, 65)
g.Dispose()
Case "Kare"
g = Me.CreateGraphics()
g.Clear(Me.BackColor)
g.DrawRectangle(kalemim, 120, 50, 80, 80)
g.Dispose()
Case "Dikdörtgen"
g = Me.CreateGraphics()
g.Clear(Me.BackColor)
g.DrawRectangle(kalemim, 120, 50, 100, 65)
g.Dispose()
Case "Yazı yaz"
g = Me.CreateGraphics()
g.Clear(Me.BackColor)
g.DrawString("gorselprogramlama.com", fontum, fircam, 70, 80)
g.Dispose()
Case "Yay"
g = Me.CreateGraphics()
g.Clear(Me.BackColor)
g.DrawArc(kalemim, 120, 80, 50, 50, 90, 250)
g.Dispose()
Case "Serbest Yay"
g = Me.CreateGraphics()
g.Clear(Me.BackColor)
g.DrawBezier(kalemim, 100, 75, 135, 100, 170, 100, 200, 75)
g.Dispose()
Case "Serbest Çizim"
g = Me.CreateGraphics()
g.Clear(Me.BackColor)
Dim p1() As Point = {New Point(100, 60), New Point(125, 100), New Point(150, 150), New Point(200, 50)}
g.DrawCurve(kalemim, p1, 0.01)
g.Dispose()
Case "Çizgi"
g = Me.CreateGraphics()
g.Clear(Me.BackColor)
g.DrawLine(kalemim, 100, 100, 300, 100)
g.Dispose()
Case "Çeyrek Çember"
g = Me.CreateGraphics()
g.Clear(Me.BackColor)
g.DrawPie(kalemim, 100, 50, 150, 100, 200, 100)
g.Dispose()
Case "Çokgen"
g = Me.CreateGraphics()
g.Clear(Me.BackColor)
Dim p2() As Point = {New Point(150, 60), New Point(200, 110), New Point(200, 150), New Point(150, 200), New Point(100, 150), New Point(100, 110)}
g.DrawPolygon(kalemim, p2)
g.Dispose()
End Select
End Sub
End Class[/Code]

Projeyi İNDİR

Rica: Sitemizin Google'da Ön Sıralarda Çıkması İçin Lütfen Alttaki Google+ Butonuna Tıklayınız , Sayfamızı Facebookta Beğeniniz veya yazıları Twitter,Facebookta paylaşınız.