ลงชื่อเข้าใช้
กระดานข่าว VB
>
ทิปเทคนิคการเขียนโปรแกรม
ส่ง
|
[VB.NET] การป้อนข้อมูลลง TextBox เป็นเลขทศนิยมแบบติดลบได้
ดู3085
|
โพสต์0
|
บุ๊คมาร์ก
thongkorn
ดูทั้งหมด
2020-4-30 13:13:29
ก็คือการเช็ค หรือดักการกดคีย์เพื่อป้อนจำนวนตัวเลขให้อยู่ในรูปแบบเลขทศนิยมที่ติดลบ (เลข + ไม่ต้องใส่เครื่องหมาย) เช่น -0.12345 จะได้ไม่เกิด Error เวลาจะนำค่าไปประมวลผล ...
โค้ด:
Const NumericKeys As String = "-0123456789."
Private Sub TextBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim InvalidChar As Boolean
If Asc(e.KeyChar) = 13 Then
e.Handled = True
'// DO SOMETHING
'// EXIT CONDITION
'//
Else
If Not NumericKeys.Contains(e.KeyChar) Then
InvalidChar = True
ElseIf e.KeyChar = "."c AndAlso TextBox1.Text.Contains(".") Then
InvalidChar = True
ElseIf e.KeyChar = "-"c AndAlso TextBox1.TextLength > 0 Then
InvalidChar = True
End If
If InvalidChar Then e.Handled = True
End If
End Sub
G2GNet.com
Powered by
Discuz!
X3.4
โฮมเพจ
|
รูปแบบทั่วไป
|
รูปแบบโมเดิร์น
|
รูปแบบคอมพิวเตอร์