3

次のコードでショートカットキーを設定する方法を理解してくれる人はいますか? 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
4

3 に答える 3

9

keydown イベントで Alt+X が押されていることを確認し、それを使用して 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
于 2016-10-09T19:39:17.963 に答える
1 
set Form KeyPreview = True

(イベント) Form1_KeyDown

If (e.KeyCode = Keys.F1) Then
    MessageBox.Show("TEST", Button1.Text)
End If
于 2020-01-04T01:09:53.563 に答える