TextBox'u Renklendirme

[ZorBey_]

Merhaba İyi Akşamlar
İyi Çalışmalar
TExtBoxta ki Sayının Durumuna
Göre Renk Değiştirmesini Yapmak
İstiyorum Bu Konuda
Aşağıdaki Kodu Nasıl Düzenlemeliyim
Yardımcı Olabilirseniz Sevinirim
İyi Çalışmalar.



Private Sub TextBox30_Change()
TextBox30 = UCase(TextBox30)
TextBox30.BackColor = vbBlack
If UCase(TextBox30.Text) = "750,00 TL" Then TextBox30.BackColor = vbBlue 'EŞİTSE
If UCase(TextBox30.Text) = ">750,00 TL" Then TextBox30.BackColor = vbRed 'BÜYÜKSE
If UCase(TextBox30.Text) = "<750,00 TL" Then TextBox30.BackColor = vbGreen 'KÜÇÜKSE

 

[ynmcan]

Merhaba İyi Akşamlar
İyi Çalışmalar
TExtBoxta ki Sayının Durumuna
Göre Renk Değiştirmesini Yapmak
İstiyorum Bu Konuda
Aşağıdaki Kodu Nasıl Düzenlemeliyim
Yardımcı Olabilirseniz Sevinirim
İyi Çalışmalar.



Private Sub TextBox30_Change()
TextBox30 = UCase(TextBox30)
TextBox30.BackColor = vbBlack
If UCase(TextBox30.Text) = "750,00 TL" Then TextBox30.BackColor = vbBlue 'EŞİTSE
If UCase(TextBox30.Text) = ">750,00 TL" Then TextBox30.BackColor = vbRed 'BÜYÜKSE
If UCase(TextBox30.Text) = "<750,00 TL" Then TextBox30.BackColor = vbGreen 'KÜÇÜKSE

Syn. Asr35 ;
Aşağıdaki kodu deneyin.

Private Sub TextBox30_Change()
TextBox30 = UCase(TextBox30)
TextBox30.BackColor = vbBlack
If UCase(TextBox30.Text) = "750,00 TL" Then TextBox30.BackColor = &HC0C000    'EŞİTSE
If UCase(TextBox30.Text) > "750,00 TL" Then TextBox30.BackColor = &HFF&       'BÜYÜKSE
If UCase(TextBox30.Text) < "750,00 TL" Then TextBox30.BackColor = &HFF00&     'KÜÇÜKSE
End Sub

 

[ZorBey_]

merhaba
Sayın
ynmcan
Teşekkür ederim
Eşittir = yeşil
Küçüktür = yeşil

Büyüktür'de kırmızı Oluyor
fakat 950 den sonrada yeşil oluyor
Rica Etsem Tekrar Bakabilirmisiniz acaba
İyi Çalışmalar

 

[ZorBey_]

Sayın
ynmcan
Tamam Oldu
Renk Kodlarında Sorun Varmış
Aşağıdaki Şekilde Düzeldi
Tekrar Teşekkür Ederim İyi Çalışmalar



Private Sub TextBox30_Change()
TextBox30 = UCase(TextBox30)
TextBox30.BackColor = vbBlack
If TextBox30.Value > 750 Then TextBox30.BackColor = &HC0C000
If TextBox30.Value < 750 Then TextBox30.BackColor = &HFF&
If TextBox30.Value = 750 Then TextBox30.BackColor = &HFF00FF
End Sub