- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
Textbox'a yazdıklarımıza göre formun rengini değiştireceğiz.
Biz rengi yazıyoruz o rengi çıkarıyor. İki değişik sürüm vereceğim: Biri direk renk ismi, diğeri ise renk kodu olacak. Başarılar..
Formda 1 buton bir textbox olacak.
Şimdi ilk kodu vereyim. Bu kod rengin ismine bağlı olacak:
Kod:
Private Sub Command1_Click() Command1.Caption = "değiştir" If Text1.Text = "mavi" Then Form1.BackColor = &HFF0000 End If If Text1.Text = "kırmızı" Then Form1.BackColor = &HFF& End If If Text1.Text = "yeşil" Then Form1.BackColor = &HFF00& End If If Text1.Text = "sarı" Then Form1.BackColor = &HFFFF& End If If Text1.Text = "turuncu" Then Form1.BackColor = &H80FF& End If If Text1.Text = "kahverengi" Then Form1.BackColor = &H40& End If If Text1.Text = "siyah" Then Form1.BackColor = &H0& End If If Text1.Text = "turkuaz" Then Form1.BackColor = &HFFFF00 End If If Text1.Text = "gri" Then Form1.BackColor = &H808080 End If If Text1.Text = "mor" Then Form1.BackColor = &HFF00FF End If If Text1.Text = "pembe" Then Form1.BackColor = &HFFC0FF End If End Sub
Yukarıdaki ilk koddu. Şu da ikinci kod, yani renk koduna bağlı olacak:
Kod:
Private Sub Command1_Click() Form1.BackColor = (Text1.Text) End Sub 'burada texbox a yazacağınız kodlar yukarıdaki "then" bölümünden sonraki kısımdaki kodlar gibi olacak.
Biz rengi yazıyoruz o rengi çıkarıyor. İki değişik sürüm vereceğim: Biri direk renk ismi, diğeri ise renk kodu olacak. Başarılar..
Formda 1 buton bir textbox olacak.
Şimdi ilk kodu vereyim. Bu kod rengin ismine bağlı olacak:
Kod:
Private Sub Command1_Click() Command1.Caption = "değiştir" If Text1.Text = "mavi" Then Form1.BackColor = &HFF0000 End If If Text1.Text = "kırmızı" Then Form1.BackColor = &HFF& End If If Text1.Text = "yeşil" Then Form1.BackColor = &HFF00& End If If Text1.Text = "sarı" Then Form1.BackColor = &HFFFF& End If If Text1.Text = "turuncu" Then Form1.BackColor = &H80FF& End If If Text1.Text = "kahverengi" Then Form1.BackColor = &H40& End If If Text1.Text = "siyah" Then Form1.BackColor = &H0& End If If Text1.Text = "turkuaz" Then Form1.BackColor = &HFFFF00 End If If Text1.Text = "gri" Then Form1.BackColor = &H808080 End If If Text1.Text = "mor" Then Form1.BackColor = &HFF00FF End If If Text1.Text = "pembe" Then Form1.BackColor = &HFFC0FF End If End Sub
Yukarıdaki ilk koddu. Şu da ikinci kod, yani renk koduna bağlı olacak:
Kod:
Private Sub Command1_Click() Form1.BackColor = (Text1.Text) End Sub 'burada texbox a yazacağınız kodlar yukarıdaki "then" bölümünden sonraki kısımdaki kodlar gibi olacak.
