0

我正在做一个需要为其注册热键的项目，任何我遇到的问题都试图弄清楚如何向热键注册器添加另一个字母修饰符。例如，CTRL+SHIFT、A+B。截至目前，我正在运行的代码有效，但它只接受一个字母修饰符。谁能告诉我哪里出错了？我希望它就像添加“And”操作符或“+”来将其连接为字符串一样简单。这是我所拥有的一个例子。

Imports System.Runtime.InteropServices

Public Class Form1

Public Const MOD_ALT As Integer = &H1
Public Const MOD_SHIFT As Integer = &H4
Public Const MOD_CTRL As Integer = &H2
Public Const MOD_WIN As Integer = &H8
Public Const WM_HOTKEY As Integer = &H312

<DllImport("User32.dll")>
Public Shared Function RegisterHotKey(ByVal hwnd As IntPtr, ByVal id As Integer, ByVal fsModifiers As Integer, ByVal vk As Integer) As Integer
End Function

<DllImport("User32.dll")>
Public Shared Function UnregisterHotKey(ByVal hwnd As IntPtr, ByVal id As Integer) As Integer
End Function

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    RegisterHotKey(Me.Handle, 100, MOD_ALT Or MOD_SHIFT, Keys.A)'alt+shift,A

End Sub

Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
    If m.Msg = WM_HOTKEY Then
        Dim id As IntPtr = m.WParam
        Select Case (id.ToString)
            Case "100"
                MessageBox.Show("You pressed alt+shift, A", "Hello", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End Select

    End If
    MyBase.WndProc(m)
End Sub

Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
    UnregisterHotKey(Me.Handle, 100)
End Sub

End Class

就像我说的，到目前为止，这有效，CTRL + SHIFT，A。我想做的是修改它以接受额外的修饰键，如CTRL + SHIFT，A + B。预先感谢您的帮助！

4

0 回答 0