Forma rengi , çizgi kalınlığı , koordinatları ayarlanabilir Şekil çizme VB.NET

Public Class Form1
Dim grfk As Graphics 'g isimli grafik işlemleri yapacağım değişenimi tanımlıyorum.
Dim x1, x2, y1, y2 As Long 'Kullanacağım değişkenleri tanımlıyorum
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
RadioButton1.Checked = True 'Form ilk açılışında radiobuton1 seçili olsun
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try 'hata olmazsa
Dim kalemim = New Pen(Color.FromArgb(HScrollBar1.Value, HScrollBar2.Value, HScrollBar3.Value), HScrollBar4.Value) 'Kullanacağım kalemin özellikilerini hscrollbardan alınmasını sağlıyorum. Kullanımı: (kalem rengi,kalem uç kalınlığı)
If RadioButton1.Checked = True Then 'radiobuton1 seçilisi ise
x1 = CLng(TextBox1.Text) 'x1 değişkenin değerini textbox1'den al
y1 = CLng(TextBox2.Text) 'y1 değişkenin değerini textbox1'den al
x2 = CLng(TextBox3.Text) 'x2 değişkenin değerini textbox1'den al
y2 = CLng(TextBox4.Text) 'y2 değişkenin değerini textbox1'den al
grfk = Me.CreateGraphics()
grfk.Clear(Me.BackColor) 'Ekranı Temizle
grfk.DrawLine(kalemim, x1, y1, x2, y2) 'çizimi yap
grfk.Dispose()
End If
If RadioButton2.Checked = True Then 'Bu kısımlar yukarıdaki açıklamalar ile aynıdır
x1 = CLng(TextBox1.Text)
y1 = CLng(TextBox2.Text)
x2 = CLng(TextBox3.Text)
y2 = CLng(TextBox4.Text)
grfk = Me.CreateGraphics()
grfk.Clear(Me.BackColor)
grfk.DrawEllipse(kalemim, x1, y1, x2, y2)
grfk.Dispose()
End If
If RadioButton3.Checked = True Then
x1 = CLng(TextBox1.Text)
y1 = CLng(TextBox2.Text)
x2 = CLng(TextBox3.Text)
y2 = CLng(TextBox4.Text)
grfk = Me.CreateGraphics()
grfk.Clear(Me.BackColor)
grfk.DrawRectangle(kalemim, x1, y1, x2, y2)
grfk.Dispose()
End If
Catch 'Hata olursa
MessageBox.Show("Lütfen Metin kutularını doldurunuz ...") 'Hata durumunda ekranda görüntülenecek msajı yazıyorum
End Try
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
Label1.Text = "X" 'Bu kısımlarda açıklama labeldeki yazıları değiştiriyoruz.
Label2.Text = "Y"
Label3.Text = "EN"
Label4.Text = "BOY"
End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
Label1.Text = "X"
Label2.Text = "Y"
Label3.Text = "EN"
Label4.Text = "BOY"
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
Label1.Text = "X1"
Label2.Text = "Y1"
Label3.Text = "X2"
Label4.Text = "Y2"
End Sub
End Class

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.