How to use Keypress Properly?

[frankleggett]

Hi

I am using Keypress(keyAscii as integer) like this

Private Sub txtBox_keypress(KeyAscii As Integer)
txtBox.SelStart = 0
txtBox.SelLength = Len(txtBox.Text)
If KeyAscii = 13 Then
Call SaveContents

but the problem is I can only use this if the contents of txtbox are 1 character long otherwise it resets itself when it checks if I have pressed the return key.
Also is the an Ascii specific code for the Enter key on the NumberPad.

Frank

[albertw]

Hi

I am using Keypress(keyAscii as integer) like this

Private Sub txtBox_keypress(KeyAscii As Integer)
txtBox.SelStart = 0
txtBox.SelLength = Len(txtBox.Text)
If KeyAscii = 13 Then
Call SaveContents

but the problem is I can only use this if the contents of txtbox are 1 character long otherwise it resets itself when it checks if I have pressed the return key.
Also is the an Ascii specific code for the Enter key on the NumberPad.

Frank

hi
your selstart / sellength statements make the textbox reset itself.
better use these statements on getfocus

[Killer42]

Hi

I am using Keypress(keyAscii as integer) like this

Private Sub txtBox_keypress(KeyAscii As Integer)
txtBox.SelStart = 0
txtBox.SelLength = Len(txtBox.Text)
If KeyAscii = 13 Then
Call SaveContents

but the problem is I can only use this if the contents of txtbox are 1 character long otherwise it resets itself when it checks if I have pressed the return key.
Also is the an Ascii specific code for the Enter key on the NumberPad.

Frank

If the SaveContents routine is depending on the text to be selected, then you should do so either in the routine itself, or inside the If...End If structure. For example...

Private Sub txtBox_keypress(KeyAscii As Integer)
  If KeyAscii = 13 Then
    txtBox.SelStart = 0
    txtBox.SelLength = Len(txtBox.Text)
    Call SaveContents
...

It might also be nice to put the textbox back the way you found it. This might work...

Private Sub txtBox_keypress(KeyAscii As Integer)
  Static HoldStart As Long, HoldLength As Long
  If KeyAscii = 13 Then
    HoldStart = txtBox.SelStart
    HoldLength = txtBox.SelLength
    txtBox.SelStart = 0
    txtBox.SelLength = Len(txtBox.Text)
    Call SaveContents
    txtBox.SelStart = HoldStart
    txtBox.SelLength = HoldLength
...

[frankleggett]

Thanks for your replies

Frank