Gorsel Programlama

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.

Programı İndir:Grafik Rengi Değiştirme (Graphics)