Backspace button ascii?

[JpEgy]

what is it? :-)

[honeybee]

vbKeyBack

.

[veryjonny]

Ascii code I think its 8.

[pari]

Hi!
Yes its ascii code is 8
here is a code for finding ascii code for any keypress

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
MsgBox KeyCode
End Sub


try it
pari

[DaoK]

Here is all ASCII code with DESCRIPTIONS : http://www.bbsinc.com/iso8859.html

[Hack]

Nice reference link DaoK!

[JpEgy]

thank you guys!

[JpEgy]

1 more stupid question and i can work on, how can i limit a textbox to, let's say 3 chars?

[da_silvy]

Originally posted by pari
Hi!
Yes its ascii code is 8
here is a code for finding ascii code for any keypress

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
MsgBox KeyCode
End Sub


try it
pari

that just displays key codes not ascii codes,

from memory it is

Private Sub Text1_KeyPress(KeyAscii As Integer, Shift As Integer)
MsgBox KeyAscii
End Sub

[abdul]

Set the "MaxLength" property of the textbox to 3 like this:

Text1.MaxLength = 3

[da_silvy]

that's the best way, or u could add handling on the keypress.....

[Hack]

If you are going to limit the text length at the control level, then you need to code both the KeyPress for keyboard input, and the change event for pasted input. abdul has the easiest suggestion however. If you just set that MaxLength property at design time, then you don't have to worry about either the Change or the KeyPress event. The disadvantage to that is you can't throw a message box or something at the user telling them they have reached the MaxLength.

[da_silvy]

try this if you want to do what hack says:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Len(Text1) = 3 And KeyAscii <> vbKeyBack Then
    KeyAscii = 0
    MsgBox "You have reached the maximum length :)"
    Exit Sub
End If
End Sub

[DaoK]

Here is a trick I have when I program when I do not have Internet and I need to know an ASCII number.

Here is the code :

Private Sub Form_Load()
For i = 0 To 255
    List1.AddItem ("->" & Format(i, "000") & " = " & Chr(i))
Next
End Sub

Just add a Listbox and here you go

[da_silvy]

that won't tell you the ascii key for backspace

if anything, you just put in the keypress event

debug.print keyascii

then when you know what key you pressed e.g. backspace, and you find out its ascii code