ボタンのショートカットキーを設定する方法

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イベントで押されていることを確認し、それを使用して終了サブ呼び出すことができます。

注意が、あなたのメインフォームにTrueに設定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