[VB.NET] การป้อนข้อมูลลง TextBox เป็นเลขทศนิยมแบบติดลบได้
ก็คือการเช็ค หรือดักการกดคีย์เพื่อป้อนจำนวนตัวเลขให้อยู่ในรูปแบบเลขทศนิยมที่ติดลบ (เลข + ไม่ต้องใส่เครื่องหมาย) เช่น -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
หน้า:
[1]