Question

VB的Text中能输入数字，但要退格键能用．

数字到能输入，但我想删除数字就不行了
Private Sub Text11_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
这个想用退格键删除不行
怎样启用退格啊
给小弟代码

Answer 1

只能输入数据和退格键

Private Sub Text1_KeyPress(KeyAscii As Integer)

Select Case KeyAscii

Case Asc("0") To Asc("9"), vbKeyBack

Case Else: KeyAscii = 0

End Select

End Sub

Answer 2

这样吧：
Private Sub Text11_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then
ElseIf KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End If
End Sub

下面的也行：
Option Explicit

Private Sub Text11_KeyPress(KeyAscii As Integer)
KeyAscii = IIf((KeyAscii = 8 Or (KeyAscii >= 48 And KeyAscii <= 57)), KeyAscii, 0)
End Sub

Answer 3

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

Answer 4

Private Sub Text11_KeyPress(KeyAscii As Integer)
If KeyAscii <> vbKeyBack And KeyAscii < 48 Or KeyAscii <> vbKeyBack And KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub