VB.net TextBox не будет сфокусирован() с событием Keydown

Question

Я хочу установить фокус на конкретный textbox, когда я нажимаю ALT + KOME.

Однако, когда я нажимаю комбинацию клавиш быстрого доступа, он фокусирует что-то еще. Даже я нажал CTRL + P, txtAuthor не получил никакого фокуса, пока какой-то странный Button control или другой textbox получил фокус.

Я проверил, что нет дублированных комбинаций клавиш. например: & Нажмите здесь ..

plus: подтверждается отладкой, что при нажатии Alt + Q, например, выполняется код txtQueue.Focus(). Но, как-то txtQueue не будет сфокусирован.

плюс: KeyPreview установлен в 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 

спасибо!

Answer 1

перекрывая ProcessCmdKey() работает!

Я не знаю причину, однако, периодически ProcessCmdKey() не работает, даже если я нажал форму, кнопки внутри формы и т.д. ...

Answer 2

Я бы установил точку останова, как вы, кажется, сделали, чтобы проверить правильность фокуса, но затем продолжить переход по коду (F8 в VStudio), чтобы проверить, что ничто не перемещает фокус в другом месте. Всегда ли такой же контроль фокусируется?

Также я хотел бы изменить код, чтобы включить отборный случай ...

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