请教个VB 问题

来源:百度知道 编辑:UC知道 时间:2024/05/15 01:34:31
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then
KeyAscii = 8
Exit Sub
End If
If KeyAscii < 47 Or KeyAscii > 58 Then
KeyAscii = 0
End If
End Sub
是什么意思啊,听说表达的是只能输入数字和退格键,能否给个明确的语法说明呢,谢谢

0的ascii码是48,47是'/',9的ASCII码是57
58是‘:’
退格键的ASCII码是8
If KeyAscii = 8 Then
KeyAscii = 8
Exit Sub
End If
‘这个就是输入退格键就退出
If KeyAscii < 47 Or KeyAscii > 58 Then
KeyAscii = 0
End If
’就是除了:1-9 :