Beep wont turn off

[Suhask]

I have following code

I have text box that takes an input

Private Sub txtEng_KeyDown(KeyCode As Integer, Shift As Integer)
 
    If KeyCode = 13 Then
        KeyAscii = 0
        lblEl.Caption = SPI(txtEng.Text)
    End If
End Sub

After user has entered text it beeps

[willakawill]

Which line of the code causes the beep?

[Killer42]

Which line of the code causes the beep?

Actually, I think a non-multiline textbox always beeps when you press Enter. It can be a real pain.

One way I have avoided it in the past is to hide a command button somewhere off-screen with Default = True so that it captures the Enter, and process it there. There are probably better ways, though. And, of course, the button doesn't necessarily have to be out of sight.

[kscmjo]

You cannot change the keyascii in keydown event.
Use the KeyPress event instead

ie

Private Sub Text_keypress(keyascii as integer)
   if keyascii=13 then
         keyascii=0
End Sub

[kscmjo]

If you have multiple text boxes on the form it is far easier to use the form Key Press event. You can still use the keydown to look for Enter to process stuff although it is better to process in the lost focus event (in case they don't press enter)

You must set the form Key Preview property to true.

Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        KeyAscii = 0
    End If
End Sub
 
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
'VB will process the Key down first then the key press
If KeyCode = 13 Then
    ' Process Stuff here
    Text2.SetFocus 'This sets the focus to the next control
End If
End Sub
 
Private Sub Text1_LostFocus()
    'Or it is better to process stuff here in case they do not use Enter
    'Still use the keydown to set the focus to the next control
End Sub

[Shankwiler]

The advantage of Keypress is that it captures the Shift as well as the KeyCode. For example, I am trying to add a bunch of shortcut fields which will enable the user to hop around the window using Alt-x combinations instead of clicking with the mouse. The following code is an example:

Private Sub Form_Keydown(KeyCode As Integer, Shift As Integer)
'  Shortcut keys added March, 2007 for RSI remediation.
 
   On Error Resume Next
   If Shift = 4 Then  ' Alt Key is being held down
      Select Case KeyCode
         Case vbKeyA
            fldALLPRice.SetFocus
         Case vbKeyD
            fldDTWPrice.SetFocus
         Case vbKeyJ
            fldBJPrice.SetFocus
         Case vbKeyT
            fldTimeEffective.SetFocus
      End Select
   End If
 
End Sub

This works perfectly except that it beeps every time control is returned to the window. I couldn't get the above to work using form_keypress because keypress doesn't capture keys pressed while the Alt key is held down. So I have a dilemma: Keypress will let me reset KeyAscii to zero to avoid the beep, but it can't detect the Alt-key combinations. Keydown detects the Alt-key, but it won't let me reset the KeyCode to zero in order to avoid the infernal beep! Is there a way I can do both--detect the Alt key and turn off the beep? Thanks!

[Killer42]

I think the code that kscmjo posted does handle both.

By the way, are you sure that you need to do the "hotkey" stuff yourself? What about using the built-in facility. Just set a hot ket on the label before a field, make sure the tabindex values are right, and it should happen automagically.

[Shankwiler]

Killer42, thanks for the great advice. I forgot that I could set hotkeys on the label and through proper setting of the tab order have the hotkey send the user to the textbox. It works perfectly! You saved me a ton of programming throughout the system.

KSCMJO's solution looked like exactly what I wanted, but I couldn't get it to work. That's why I posted my question. Basically, when I held the Alt key down, the keypress event would never fire. So I only got the keydown part to work. But I don't need it now, so I am merely curious as to what I was doing wrong.

[Killer42]

Killer42, thanks for the great advice. I forgot that I could set hotkeys on the label and through proper setting of the tab order have the hotkey send the user to the textbox. It works perfectly! You saved me a ton of programming throughout the system.

Glad it helped. :)

KSCMJO's solution looked like exactly what I wanted, but I couldn't get it to work. That's why I posted my question. Basically, when I held the Alt key down, the keypress event would never fire. So I only got the keydown part to work. But I don't need it now, so I am merely curious as to what I was doing wrong.

So am I. Haven't played with this stuff in some time. I thought the code looked alright, but don't think I considered the effect of the Alt key.