VB.net TextBox不会与Keydown事件一起被focus（）

Question

I want to set a focus to the specific textbox when I press ALT+SOME KEY.

However, when I press the shortcut key combination, it focuses something else. Even I pressed CTRL+P, the txtAuthor got no focus at all while some strange Button control or another textbox got focus.

I checked that there is no duplicated key combinations. eg: &Press Here ..

plus : It is confirmed by Debugging that when I press Alt+Q, for example, the txtQueue.Focus() code below is executed. But, somehow txtQueue won't be focused.

plus : KeyPreview is set to True

Private Sub frmEdit_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown


    'Alt+Q
    If e.KeyCode = Keys.Q AndAlso e.Modifiers = Keys.Alt Then
        txtQueue.Focus()
        Exit Sub
    End If

    'Alt+D
    If e.KeyCode = Keys.D AndAlso e.Modifiers = Keys.Alt Then
        txtDynamic.Focus()
        Exit Sub
    End If

    'Alt+K
    If e.KeyCode = Keys.K AndAlso e.Modifiers = Keys.Alt Then
        txtTime.Focus()
        Exit Sub
    End If

    'Alt+P
    If e.KeyCode = Keys.P AndAlso e.Modifiers = Keys.Alt Then
        txtAlgorithm.Focus()
        Exit Sub
    End If


End Sub

THank you!

Answer 1

I would set breakpoint as you seem to have done to check that the correct focus is set but then continue stepping through the code (F8 in VStudio) to check that nothing then moves the focus elsewhere. Does the same control always get focus?

Also I would change your code to incorporate a select case...

Private Sub frmEdit_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown

If e.Modifiers = Key.Alt Then

    Select Case (e.KeyCode)

        'Alt+Q
        Case Keys.Q 
            txtQueue.Focus()
            Exit Select

        'Alt+D
        Case Keys.D 
            txtDynamic.Focus()
            Exit Select

        'Alt+K
        Case Keys.K 
            txtTime.Focus()
            Exit Select

        'Alt+P
        Case Keys.P 
            txtAlgorithm.Focus()
            Exit Select
    End Select

End If

End Sub

Answer 2

overriding the ProcessCmdKey() works!

I don't know the reason, however, intermittently ProcessCmdKey() doesn't work even though I clicked the Form, Buttons inside the Form etc...