Form Üzerindeki Grafik Rengini Değiştirme (Graphics)

Bu dersimizde form üzerine oluşturduğumuz karenin Radiobutton ile kendi istediğimiz renge çevirmeyi göreceğiz. Bunun için formumuzun ara yüzünü 1 button ve kaç tane renk seçmek istiyorsak renk sayısı kadarda Radiobutton koyarak programımıza başlıyoruz.
Daha sonra kod yazma işlemine başlıyoruz. İlk olarak “a” değişkenini tanımlıyoruz.

Public Class Form1
Dim a As Graphics

Kodlarımızı Button1 in click ine yazarak devam ediyoruz.

  If RadioButton1.Checked = True Then 'eğer radiobutton1 seçilirse
a = Me.CreateGraphics()
a.DrawRectangle(New Pen(Color.Yellow, 4), 130, 150, 100, 100) 'forma kare çizdirmek ve çizilen karenin rengini ve boyutunu ayarlamak için
End If

Aynı işlemleri bütün radiobutonlar için aktif hale getiriyoruz ve rengini değiştiriyoruz.

 If RadioButton2.Checked = True Then
a = Me.CreateGraphics()
a.DrawRectangle(New Pen(Color.Red, 4), 130, 150, 100, 100)
End If
If RadioButton3.Checked = True Then
a = Me.CreateGraphics()
a.DrawRectangle(New Pen(Color.Blue, 4), 130, 150, 100, 100)
End If
If RadioButton4.Checked = True Then
a = Me.CreateGraphics()
a.DrawRectangle(New Pen(Color.White, 4), 130, 150, 100, 100)
End If
If RadioButton5.Checked = True Then
a = Me.CreateGraphics()
a.DrawRectangle(New Pen(Color.Pink, 4), 130, 150, 100, 100)
End If
If RadioButton6.Checked = True Then
a = Me.CreateGraphics()
a.DrawRectangle(New Pen(Color.Green, 4), 130, 150, 100, 100)
End If
If RadioButton7.Checked = True Then
a = Me.CreateGraphics()
a.DrawRectangle(New Pen(Color.Aqua, 4), 130, 150, 100, 100)
End If
If RadioButton8.Checked = True Then
a = Me.CreateGraphics()
a.DrawRectangle(New Pen(Color.Orange, 4), 130, 150, 100, 100)
End If
If RadioButton9.Checked = True Then
a = Me.CreateGraphics()
a.DrawRectangle(New Pen(Color.Black, 4), 130, 150, 100, 100)
End If

Kod yazma işlemimiz bittikten sonra programımızı çalıştırıyoruz. Resimde görüldüğü gibi seçeneklerden turkuaz ı seçtik ve kare oluştur butonuna tıkladığımızda turkuaz renginde kare oluştu.