VB6.0 : Set textbox to Numeric

[wassup]

Good morning (in Malaysia),

I have a source code of setting the textbox for key in Numeric only. But my problem is why i can't backspace? Can anyone help me please, thanks.

Private Sub txtProDate_KeyPress(KeyAscii As Integer)
   If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
      KeyAscii = 0
      Beep            ' Sound error signal.
   End If
End

[cmrhema]

Good morning (in Malaysia),

I have a source code of setting the textbox for key in Numeric only. But my problem is why i can't backspace? Can anyone help me please, thanks.

Private Sub txtProDate_KeyPress(KeyAscii As Integer)
   If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
      KeyAscii = 0
      Beep            ' Sound error signal.
   End If
End

The ascii code for backspace is 8, which in your code gets trapped.
Refer the links below

http://www.thescripts.com/forum/thread620015-keyascii.html

[wassup]

The ascii code for backspace is 8, which in your code gets trapped.
Refer the links below
http://www.thescripts. com/forum/thread620015-keyascii.html

Thanks cmrhema.
Here the code after revise set the textbox to Numeric and allow for Backspace.

Private Sub txtProDate_KeyPress(KeyAscii As Integer)
   If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
      KeyAscii = 8
      Beep            ' Sound error signal.
   End If
End Sub

[Killer42]

I think you might see some quite interesting and unexpected results from that code. This version might work slightly better...
[CODE=vb]Private Sub txtProDate_KeyP ress(KeyAscii As Integer)
Select Case KeyAscii
Case Is < 32
' Ignore
Case Asc("0") To Asc("9")
' Ignore
Case Else
KeyAscii = 0
Beep ' Sound error signal.
End Select
End Sub[/CODE]

[wassup]

[CODE=vb]Private Sub txtProDate_KeyP ress(KeyAscii As Integer)
Select Case KeyAscii
Case Is < 32
' Ignore
Case Asc("0") To Asc("9")
' Ignore
Case Else
KeyAscii = 0
Beep ' Sound error signal.
End Select
End Sub[/CODE]

Hi killer,
I still not very understand what the diffrent of this two source code. Why this more better? Can you teach me more detail? Thanks.

[Killer42]

Well if you follow the original code step by step, it effectively says "if the user pressed anything other than a number, then change it to a backspace". This is not very useful.

I tried it out. What happens (as expected) is that you can type numbers, but every time you press a lett, or anything else, it just erases the last digit.

The modified version I posted says something like this...

• If user pressed some sort of control key (arrows, enter, whatever) then leave it alone.
• If user pressed a numeric digit, then leave it alone.
• If user pressed anything else, don't allow it to go through (suppress it).