Блог

Кто-нибудь может помочь мне понять, как установить сочетание клавиш в следующем коде? Оно должно быть Alt X (Exit — это название кнопки). Я пытался cmd_Exit.text="amp;Exit" , но он напечатал «amp;», и сочетание клавиш не было настроено.

 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
  

Вы можете проверить, что Alt X нажаты с помощью события keydown, а затем вызвать с его помощью свой модуль exit:

Обратите внимание, вам нужно, чтобы для 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
  

 set Form KeyPreview = True
  

(Событие) Form1_KeyDown

 If (e.KeyCode = Keys.F1) Then
    MessageBox.Show("TEST", Button1.Text)
End If
  

 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