If RadioButton1.Checked Then
Me.BackColor = Label4.BackColor
Else
TextBox1.BackColor = Label4.BackColor
End If
End Sub
Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Label5.Click
If RadioButton1.Checked Then
Me.BackColor = Label5.BackColor
Else
TextBox1.BackColor = Label5.BackColor
End If
End Sub
End Class
2.1.4. Select Case / Case Else
Birden fazla seçenek içinden seçim yapabilme anlamında oldukça yaygın bir karar
verme yapısıdır. İç içe bir sürü IF kodu kullanmak programın hızını yavaşlatır ve hantal bir
progam haline getirir. Hatta içinden çıkılamaz bir sonuca götürebilir. Bu anlamda “Select
Case” yapısı program anlaşılabilirlik ve hız kazandırır.
“Select Case” yapısında seçici adı verilen bir değişken kullanılır. Seçici değişkenin
alabileceği değerler ve Case (durum) blokları ile yapılacak olan işlemler sıralanır.
Aşağıda Select Case yapısının formatı verilmiştir.
Select Case seçici
Case değer1
Kod grubu1
Case değer2
Kod grubu2
Case değer3
Kod grubu3
Case Else
Kod grubu X
End Select
17