在上下文菜单条中添加快捷方式，如ctrl + D1和ctrl + numpad1

Question

在我的项目中我有button，我想设置按钮的快捷方式。显示我试过这样我创建context menu strip添加tool strip设置快捷方式。并在工具条button click中调用click event事件，现在我可以使用该按钮的快捷方式。但是现在我有问题我设置快捷方式就像这个Ctrl+1当我按control + D1但它在Control + numpad1中不起作用时的工作。如何使用这两个术语设置工具条菜单的快捷方式。

Answer 1

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
    If ((e.KeyCode = Keys.NumPad1 AndAlso e.Modifiers = Keys.Control) Or (e.KeyCode = Keys.D1 AndAlso e.Modifiers = Keys.Control)) Then


    End If
End Sub