Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
Dim str As String = TextBox1.Text
Dim val As Double
val = Convert.ToDouble(str)
If val <= 19.9 Then
TextBox1.ForeColor = Color.Yellow
ElseIf val <= 20.9 Then
TextBox1.ForeColor = Color.Green
Else
TextBox1.ForeColor = Color.Red
End If
End Sub
ลองเอาไปประยุกต์ ดูครับ
ตอนผมทำได้ละครับ แต่ติดปัญหาอยู่อีกอย่างครับผม คือ ถ้าช่องที่อยู่ในกรอบสีแดง เป็นค่าว่างหรือไม่มีค่าอะไรเลยมันจะแจ้ง Error ว่า System.FormatException: 'Input string was not in a correct format.
ผมติดอยู่ตรงนี้อะครับผม โดยผมใช้ code ชุดนิดครับ มันจะแจ้ง Error ตรง Val = Convert.ToDouble(str);
Code
string str = tbData.Text;
double val = 0;
double hight = 0;
double ok = 0;
double low = 0;
double.TryParse(txt_st_hight.Text, out hight);
double.TryParse(txt_st_low.Text, out low);
double.TryParse(txt_st_ok.Text, out ok);
val = Convert.ToDouble(str);
if (val <= low)
{
tbData.ForeColor = Color.Yellow;
}
else if (val <= ok && val >= ok)
{
tbData.ForeColor = Color.GreenYellow;
}
else if (val > hight)
{
tbData.ForeColor = Color.Red;
}