textbox içirinde bilginin değerine göre renklendirme.

[ofbayoglu]

arkadaşlar merhaba textbox da çekilmiş bir veri 0'ın altında bir değerse kırmızı sıfırın üzerinde bir değerse yeşil olarak yazmasını istiyorum. nasıl yapabiliriz...

 

[Korhan Ayhan]

Deneyiniz.

Ben nesnenin Change olayını kullandım. Siz uygun bir olaya kodu uygulayabilirsiniz.

Private Sub TextBox1_Change()
    If TextBox1 > 0 Then
        TextBox1.ForeColor = &HC000&
    Else
        TextBox1.ForeColor = vbRed
    End If
End Sub

 

[ofbayoglu]

teşekkür ederim hocam..

 

[ofbayoglu]

hocam label içinde geçerlimi userform her açtığımızda veri geliyor labelin üzerine tıkladığımızda yeşil oluyor. otomatik gelmesi için ne yapabilirz.

 

[Korhan Ayhan]

Label için UserForm açılma olayına yazacağınız koşul ile renklendirmeniz daha uygun olacaktır.

 

[ofbayoglu]

Hocam harikasınız çok çok teşekkür ederim arada sizi yoruyoruz böyle Hakkınızı helal edin

 

[Korhan Ayhan]

Hakkım varsa helal olsun..