Question

VB编程中怎么限制文本框中只输入数字类型的字符退格键除外?

问题如上, 有没有源代码或相应的例子!!

Answer 1

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