Question

我想为我的应用程序分配键盘快捷键，例如 F1 到 F12 ，每次按下时，执行某个命令或程序，无论哪个字段或按钮是焦点。这应该像某个按钮处于焦点并按 Enter 键时那样。我正在使用VB 2013.

Answer 1

您需要使用表单的KeyDown事件，然后您可以捕获密钥并向其添加命令。

然后使用if语句检查按下了哪个按钮，并为每个要使用的按钮添加一个命令。

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
    If e.KeyCode = Keys.F1 Then
        MsgBox("F1")
    ElseIf e.KeyCode = Keys.F2 Then
        MsgBox("F2")
    ElseIf e.KeyCode = Keys.F3 Then
        MsgBox("F3")
    ElseIf e.KeyCode = Keys.F4 Then
        MsgBox("F4")
    ElseIf e.KeyCode = Keys.F5 Then
        MsgBox("F5")
    ElseIf e.KeyCode = Keys.F6 Then
        MsgBox("F6")
    ElseIf e.KeyCode = Keys.F7 Then
        MsgBox("F7")
    ElseIf e.KeyCode = Keys.F8 Then
        MsgBox("F8")
    ElseIf e.KeyCode = Keys.F9 Then
        MsgBox("F9")
    ElseIf e.KeyCode = Keys.F10 Then
        MsgBox("F10")
    ElseIf e.KeyCode = Keys.F11 Then
        MsgBox("F11")
    ElseIf e.KeyCode = Keys.F12 Then
        MsgBox("F12")
    End If
End Sub

Answer 2

例如：

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
 If e.KeyCode = Keys.I And e.Modifiers = Keys.Shift Then
      '' What will happen when you press Shift + I
 end if
end sub

分配键盘快捷方式

2 个答案: