สอบถามการเปรียบเทียบจาก textbox และเปลี่ยนสีตัวเลขในช่อง texbox
dim Valuse as Double = ตัวเลขที่ได้จากฐานข้อมูล
เช่ม ผมมี Textbox1 ตัว ก็ทำประมานนี้
If values <= 19.9 Then
TextBox1.Text = values
TextBox1.ForeColor = Color.Yellow
ElseIf values <= 20.9 Then
TextBox1.Text = values
TextBox1.ForeColor = Color.Green
Else
TextBox1.Text = values
TextBox1.ForeColor = Color.Red
End If
ลองเอาไปประยุกต์ ดูครับ
Date :
2020-01-10 23:53:53
By :
peeraponggame11
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
ลองเอาไปประยุกต์ ดูครับ
Date :
2020-01-30 16:27:50
By :
2127832830566218
ถ้าใช้เป็นช่วง มันต้องใช้ And ด้วย ครับ
เช่น
if(v=< a)
{
.....
}
else if(v=<b && v > a)
{
.....
}
else if(v=<c && v > b)
{
.........
}
else if( v > c)
{
.........
}
ถ้า ยังงง ให้ เอา ปากกา ดินสอ ลาก เส้น จำนวน แล้วก็เขียนจำนวนที่ต้องการดู
จากนั้นก็นั่งคิดว่า ต้องใช้ If กี่จุดบ้างครับ
Date :
2020-01-31 17:24:31
By :
lamaka.tor
3 ช่อง ก็ต้องทำ ลองรับทั้ง 3 ช่องไงครับ
ทำเป็น ฟังก์ชั่น อ้างอิง ตัวแปรแทน
public changecolor( TEdit Obj){
.....
}
ส่งค่า TEXTBOX เข้า function แทน
ปล. จำชื่อคลาส ไม่ได้แล้ว 55555 ไม่ได้เขียนนาน
Date :
2020-01-31 20:40:20
By :
Chaidhanan
double.TryParse(str, xxx);
งง โค๊ดตัวเองก็ใช้อยู่ แล้วทำไมไม่เอามาใช้กับตัวแปรนี้
ประวัติการแก้ไข 2020-02-01 09:50:01 2020-02-01 09:52:25
Date :
2020-02-01 09:47:08
By :
Chaidhanan
ลองใช้วิธีเพิ่ม ไว้ข้างก็ก็ได้เช่นกันประมาณนี้ครับ
Val = Convert.ToDouble("0"+str);
ห้ามไปใส่ข้างหลังเด็ดขาด(มันจะโอละพ่อกันเลยทีเดียว)
Date :
2020-02-01 10:02:13
By :
lamaka.tor
Load balance : Server 01