Ввод только цифр, но с разрешением Backspace - VB

Формулировка задачи:

Здравствуйте.

Private Sub Text1_KeyPress(KeyAscii As Integer) 
If KeyAscii < Asc(0) Or KeyAscii > Asc(9) Then
KeyAscii = 0
End If 
End Sub

Разрешает только цифры, но если ошибся при вводе, приходится выделять и Del'итать. Как добавить разрешение на Backspace. Спасибо=*

Решение задачи: «Ввод только цифр, но с разрешением Backspace»

textual
                            Листинг программы 
                        

                            Private Sub Text1_Change()
        If Not IsNumeric(Text1.Text) Then
            Text1.Text = ""
        End If
End Sub
                        

Оцени полезность:

9 голосов , оценка 4.222 из 5

Похожие ответы