[qaz1134]

Hello every one I kinda have some trouble about the backspace thing...

I was trying to filter every input from the user so that he could only enter numbers by using this code:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If IsNumeric(Chr(KeyAscii)) <> True Then KeyAscii = 0
End Sub

This code blocks any existing character input from the keyboard and accept numbers 0-9

the problem is the backspace thing is also block and i do not know any other syntax..

please help me

[n8wxs]

Have a look at the example code for the Control.KeyDown Event

[luigiplumbersinc]

qaz1134, on 18 Feb, 2009 - 09:44 AM, said:

Hello every one I kinda have some trouble about the backspace thing...

I was trying to filter every input from the user so that he could only enter numbers by using this code:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If IsNumeric(Chr(KeyAscii)) <> True Then KeyAscii = 0
End Sub

This code blocks any existing character input from the keyboard and accept numbers 0-9

the problem is the backspace thing is also block and i do not know any other syntax..

please help me

as i recall the value the backspace key passes to KeyAscii is 8 so this should do the trick

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
If IsNumeric(Chr(KeyAscii)) <> True Then KeyAscii = 0
End If
End Sub

This post has been edited by luigiplumbersinc: 18 February 2009 - 04:50 PM

[qaz1134]

n8wxs, on 18 Feb, 2009 - 03:50 PM, said:

Have a look at the example code for the Control.KeyDown Event

The Site that you gave me seems to be broken OR something that I cannot view because of some sort of problem

thanks for Helping

[Rezert]

Seems to work for me. Try going through a proxy? www.rtunnel.com

[qaz1134]

Rezert, on 22 Feb, 2009 - 05:11 AM, said:

Seems to work for me. Try going through a proxy? www.rtunnel.com

Thanks for helping But I kindda tried that one Too.