버튼의 바로 가기 키를 설정하는 방법

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