PrivateSub TextBox1_Change() With TextBox1 SelectCase .Value Case 1 To 10
.ForeColor = vbYellow Case 10 To 20
.ForeColor = vbGreen Case 20 To 30
.ForeColor = vbRed EndSelect EndWith EndSub
napisał: Blaszka_P postów: 112
umieszczony: 15 kwietnia 2011 19:54
Witam
Mam pytanie czy można zrobić tak aby zmieniałsię kolor czcionki w TextBox w zależności od podanych danych.
Mam okienko TextBoks w którym pojawia się wartość liczbowa pobierana z urządzenia(miernika)
i chciałbym aby widziana wartość w TextBox-ie znieniała kolor czcionki zależnie od wartości np. od 0-10 na żółto , od 11-20 na zielono i od 21 do 30 na czerwono.
Czy jest to do zrobienia