2014-11-13 2 views
0

Я не могу использовать кнопку Backspace на клавиатуре при изменении или редактировании того, что вводится пользователем, когда он совершает ошибку, вводя последовательность целых чисел ... помогите мне пожалуйста ...Vb. net, input внутри текстового поля

Private Sub tbx3_KeyPress(sender As Object, e As KeyPressEventArgs) Handles tbx3.KeyPress 
    If CInt(Val(e.KeyChar)) = 8 Then 
     Return 
    End If 
    Dim allowedchar As String = "1234567890" 
    If Not (allowedchar.Contains(e.KeyChar)) Then 
     e.KeyChar = CChar(e.KeyChar) 

     e.Handled = True 
    End If 

End Sub 
+0

так что вы хотите только для ввода целых чисел? – DevelopmentIsMyPassion

+0

Да, сэр, потому что это номер заказа на поставку, поэтому я сделал некоторые атрибуты, чтобы пользователь не путался и не жаловался. –

+0

Вы проверили мой ответ? – DevelopmentIsMyPassion

ответ

0

Попробуйте

If (Microsoft.VisualBasic.Asc(e.KeyChar) < 48) _ 
      Or (Microsoft.VisualBasic.Asc(e.KeyChar) > 57) Then 
     e.Handled = True 
End If 
If (Microsoft.VisualBasic.Asc(e.KeyChar) = 8) Then 
     e.Handled = False 
End If 
Смежные вопросы