VB限制TextBox控件只输入数字

在VB中如何限制TextBox控件只能输入数字

先给TextBox控件添加KeyPress事件，代码：

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii <> 8 And KeyAscii < 48 Or KeyAscii > 57 Then
        Beep
        KeyAscii = 0
    End If
End Sub

代码很简单，就是判断KeyAscii值是否在48-57之间，是的话就是数字就输入，否则就不是

过在输入的时候有时候会用到退格键，所以还得在加上一个KeyAscii <> 8 来判断是否是退格键