[VB.NET] การป้อนข้อมูลลง TextBox เป็นเลขทศนิยมแบบติดลบได้

thongkorn

ก็คือการเช็ค หรือดักการกดคีย์เพื่อป้อนจำนวนตัวเลขให้อยู่ในรูปแบบเลขทศนิยมที่ติดลบ (เลข + ไม่ต้องใส่เครื่องหมาย) เช่น -0.12345 จะได้ไม่เกิด Error เวลาจะนำค่าไปประมวลผล ...

1.     Const NumericKeys As String = "-0123456789."
   
2. 
   
3.     Private Sub TextBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
   
4.         Dim InvalidChar As Boolean
   
5.         If Asc(e.KeyChar) = 13 Then
   
6.             e.Handled = True
   
7.             '// DO SOMETHING
   
8.             '// EXIT CONDITION
   
9.             '//
   
10.         Else
    
11.             If Not NumericKeys.Contains(e.KeyChar) Then
    
12.                 InvalidChar = True
    
13.             ElseIf e.KeyChar = "."c AndAlso TextBox1.Text.Contains(".") Then
    
14.                 InvalidChar = True
    
15.             ElseIf e.KeyChar = "-"c AndAlso TextBox1.TextLength > 0 Then
    
16.                 InvalidChar = True
    
17.             End If
    
18.             If InvalidChar Then e.Handled = True
    
19.         End If
    
20.     End Sub

คัดลอกไปที่คลิปบอร์ด