Private Sub Text2_KeyPress(KeyAscii As Integer)
    If KeyAscii = 8 Then Exit Sub
    If KeyAscii > 57 Or KeyAscii < 48 Then KeyAscii = 0
End Sub

我是刚学VB6.0的请高人帮我解释一下上面这个代码.
请发到503940359@
谢谢!!!!!!!

文本框的键盘输入时间
KeyAscii 8  是backspace 是清除键 点击backspace 退出
KeyAscii 48---57 是0---9的数字KeyAscii码

本段程序的意思是

除数字键和退格键以外
其它所有除入的字符均无效,并且Beep