Yazdığınız Yazıya Göre Değişen Form Rengi

Textbox'a yazdıklarımıza göre formun rengini değiştireceğiz.

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:


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:


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.



Kolay gelsin.
  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

kardeş senle iletisime gecmem lazım vb6 ile ilgili bisiler sorcam mumkunmu?
olur söyleyin

Yukarı Git