TextBox Metin Renklendirme Sorunu

[efeksk]

Değerli hocalarım. Hepinizden i yardım bekliyorum acil. Geliştirdiğim Personel Özlük Takip Sistemi PerSis için birkaç eklenti oluşturdum. Şimdi bir sorunum var. TextBoxlarda bilgi bölümünde kişilerin dosya takipleri için var veya yok diye ibareler kullanıyorum benim istediğim ise şu;

Textbox içinde Var(+) diye yazarsa mavi
TextBox içinde Yok(-) diye yazarsa kırmızı

olsun istiyorum. Lütfen el atın. Araştırmalarımda bunu sadece sayısal değer olarak bulabildim. ama ben metinde böyle bişey istyiorum. Yardımlarınızı bekliyorum

 

[Necdet]

Merhaba,

Aşağıdaki kodları inceleyiniz.

Option Compare Text

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox1.Value = "Yok" Then
        TextBox1.BackColor = &HFF&
    ElseIf TextBox1.Value = "Var" Then
        TextBox1.BackColor = &HFF0000
    Else
        TextBox1.BackColor = &HFFFFFF
    End If
End Sub

 

[Orion1]

İkiside olursa ne olacak?
Koslar aşğıdadır
Ben textboxın chabged olayına yazdım.
siz istediğiniz yere yazınız.
Ayrıca çok sayıda textbox için kullanıcakasanız class module uygulaması yaparsanız daha iyi olur.
Tek tek textboxkların içine kod yazmaktan kurtulursunuz.
Class moduel uygulamaları için forumda arama yapınız.

Private Sub TextBox1_Change()
If InStr(1, TextBox1.Text, "-") > 0 Then TextBox1.BackColor = vbBlue
If InStr(1, TextBox1.Text, "+") > 0 Then TextBox1.BackColor = vbRed

End Sub

 

[efeksk]

abi varya sizler duayenlerimsiniz. ikinizede çok teşekkür ediyorum. her iki kodda işimi görür valla. Class modülü araştırcam evren bey. hepiniz varolun