如何限制TextBox中只输入数字

在界面程序设计中，有时我们只想让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之间，如果是在其间，则输入的为数字，否则就不是，但是有时我们还可能使用到退ge键，以方便输入错误时删除，这样的话，所以必须加上KeyAscii <> 8，以在使用退ge键时不被忽略。