Question

VB KeyAscii事件使用时不好使用backspace删除键

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
用了之后不好删除text文字啊

Answer 1

If Not( KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii=8 ) Then KeyAscii = 0

Answer 2

你的代码跟删除文本有关系吗？