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

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

[code lang=”vbnet”]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[/code]

Projeyi İNDİR