You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Uygulama No: 27 – Renk Aktarımı<br />
VB.Net Örnek Uygulamalar<br />
2 Kasım 2011<br />
Açıklama : Label (etiket) nesneleri kullanarak oluşturulmuş bir renk paletinin kullanımı.<br />
Ekran Görüntüsü<br />
Public Class Form1<br />
Açıklamalı Kodlar<br />
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As<br />
System.EventArgs) Handles Label1.Click<br />
If RBtnForm.Checked Then ‘Eğer formun rengi opsiyonu seçili ise<br />
Me.BackColor = Label1.BackColor<br />
Else<br />
TextBox1.BackColor = Label1.BackColor<br />
End If<br />
End Sub<br />
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As<br />
System.EventArgs) Handles Label2.Click<br />
If RBtnForm.Checked Then<br />
Me.BackColor = Label2.BackColor<br />
Else<br />
TextBox1.BackColor = Label2.BackColor<br />
End If<br />
End Sub<br />
Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As<br />
System.EventArgs) Handles Label3.Click<br />
If RBtnForm.Checked Then<br />
Me.BackColor = Label3.BackColor<br />
Else<br />
TextBox1.BackColor = Label3.BackColor<br />
End If<br />
End Sub<br />
Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As<br />
System.EventArgs) Handles Label4.Click<br />
If RBtnForm.Checked Then<br />
Me.BackColor = Label4.BackColor<br />
Else<br />
TextBox1.BackColor = Label4.BackColor<br />
End If<br />
Tolga GÜYER Sayfa 42
Change language