如何設置按鈕的快捷鍵

Question

任何人都可以幫助我瞭解如何在以下代碼中設置快捷鍵？ 它應該是Alt + X（退出是按鈕的名稱）。 我試過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設置爲True在主窗體

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