在 VSTO Excel 加载项中挂钩 ALT 键

Question

我需要的解决方案 99% 封装在下面链接的公认解决方案中：

How to perform .Onkey Event in an Excel Add-In created with Visual Studio 2010?

但是，它似乎不适用于挂接 ALT 键。我环顾四周，遇到了几个 C# 示例，但我是编程新手，而且我正在学习 VB .NET，因此以我的知识水平，我无法成功地将代码移植到其他 C# 示例中以使其在我的VB .NET 项目。

由于上面链接的代码已经完成了我需要的一切，我想继续使用它，但如果有人能告诉我如何让它也钩住 ALT 键，我将不胜感激。我想有一个常量需要以特定的方式传递和检查，但是自从找到这个解决方案后的最后 4 天里我一直无法弄清楚。任何帮助将不胜感激。

非常感谢！

编辑：@Vincent，这是我正在测试的代码，它因溢出错误而中断：

Imports InputHelperLib

Public Class ThisAddIn

Dim KeyboardHook As InputHelper.Hooks.LocalKeyboardHook

Private Sub ThisAddIn_Startup() Handles Me.Startup
    KeyboardHook = New InputHelper.Hooks.LocalKeyboardHook
    AddHandler KeyboardHook.KeyDown, AddressOf KeyboardHook_KeyDown
    AddHandler KeyboardHook.KeyUp, AddressOf KeyboardHook_KeyUp
End Sub

Private Sub ThisAddIn_Shutdown() Handles Me.Shutdown
    If KeyboardHook IsNot Nothing Then KeyboardHook.Dispose()
End Sub

Private Sub KeyboardHook_KeyDown(sender As Object, e As InputHelper.Hooks.KeyboardHookEventArgs)
    If e.Modifiers = InputHelper.ModifierKeys.Alt AndAlso e.KeyCode = System.Windows.Forms.Keys.M Then
        System.Windows.Forms.MessageBox.Show("ALT + M was pressed!")
    End If
End Sub

Private Sub KeyboardHook_KeyUp(sender As Object, e As InputHelper.Hooks.KeyboardHookEventArgs)
    If e.Modifiers = InputHelper.ModifierKeys.Alt AndAlso e.KeyCode = System.Windows.Forms.Keys.M Then
        System.Windows.Forms.MessageBox.Show("ALT + M was released!")
    End If
End Sub
End Class

Answer 1

该答案中的代码并不完全有效，并且没有使用确定修饰符的最佳方法。

由于标准的低级键盘钩子不起作用，我在我的InputHelper 库中添加了一个LocalKeyboardHook，它使用WH_KEYBOARD 钩子而不是WH_KEYBOARD_LL。不同之处在于WH_KEYBOARD 要求您注入一个 DLL 并在您要挂钩的每个进程中指定一个线程。幸运的是，由于您使用的是 VSTO 外接程序，因此 InputHelper 已与您的外接程序一起加载到 Excel 进程中。

编译后的DLL可以在我项目的Release部分下载：
https://github.com/Visual-Vincent/InputHelper/releases

（也可以直接从仓库下载InputHelper.vb源文件）

使用示例：

Imports InputHelperLib

Public Class ThisAddIn

    Dim KeyboardHook As InputHelper.Hooks.LocalKeyboardHook

    Private Sub ThisAddIn_Startup() Handles Me.Startup
        KeyboardHook = New InputHelper.Hooks.LocalKeyboardHook
        AddHandler KeyboardHook.KeyDown, AddressOf KeyboardHook_KeyDown
        AddHandler KeyboardHook.KeyUp, AddressOf KeyboardHook_KeyUp
    End Sub

    Private Sub ThisAddIn_Shutdown() Handles Me.Shutdown
        If KeyboardHook IsNot Nothing Then KeyboardHook.Dispose()
    End Sub

    Private Sub KeyboardHook_KeyDown(sender As Object, e As InputHelper.Hooks.KeyboardHookEventArgs)
        If e.Modifiers = InputHelper.ModifierKeys.Alt AndAlso e.KeyCode = System.Windows.Forms.Keys.M Then
            System.Windows.Forms.MessageBox.Show("ALT + M was pressed!")
        End If
    End Sub

    Private Sub KeyboardHook_KeyUp(sender As Object, e As InputHelper.Hooks.KeyboardHookEventArgs)
        If e.Modifiers = InputHelper.ModifierKeys.Alt AndAlso e.KeyCode = System.Windows.Forms.Keys.M Then
            System.Windows.Forms.MessageBox.Show("ALT + M was released!")
        End If
    End Sub
End Class