Как установить горячую клавишу для кнопки

Question

Может ли кто-нибудь помочь мне понять, как установить комбинацию клавиш в следующем коде? Должно быть Alt + X (Exit - это название кнопки). Я пробовал cmd_Exit.text="&Exit", но напечатал «&» и клавиша быстрого доступа не была настроена.

Private Sub cmdExit_Click(sender As Object, e As EventArgs) Handles cmdExit.Click 
    'cmdExit.Capture() 
    Dim response = MsgBox("Are you sure you want to exit?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle), "Leaving?") 
    If response = MsgBoxResult.Yes Then  'if yes exit the application 
     Application.Exit() 
    End If 
End Sub 

Answer 1

Вы можете проверить, что Alt + X нажат с KeyDown события, а затем вызвать ваш выход к югу с ним:

Обратите внимание, что вам нужно будет KeyPreview значение ИСТИНА в основной форме

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown 
    If e.KeyCode = Keys.X AndAlso e.Modifiers = Keys.Alt Then 
     e.Handled = True 
     cmdExit_Click(sender, e) 'or cmdExit.PerformClick() 
    End If 
End Sub