Örnek 3:
Label (etiket) nesneleri kullanarak oluşturulmuş bir renk paletinin kullanı
mı. Renk paletleri tıklandığında ya form rengi veya metin kutusunun rengi
değişecektir.
Ekran Görüntüsü
Kodlar
Public Class Form1
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Label1.Click
If RadioButton1.Checked Then 'Eğer formun rengi opsiyonu seçili ise
Me.BackColor = Label1.BackColor
Else
TextBox1.BackColor = Label1.BackColor
End If
End Sub
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Label2.Click
If RadioButton1.Checked Then
Me.BackColor = Label2.BackColor
Else
TextBox1.BackColor = Label2.BackColor
End If
End Sub
Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Label3.Click
If RadioButton1.Checked Then
Me.BackColor = Label3.BackColor
Else
TextBox1.BackColor = Label3.BackColor
End If
End Sub
Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Label4.Click
16