主题：窗口快捷键

自定义函数

处理快捷键

Dim m As object = args(0)

Select Case m.WParam

    Case 100

        msgbox("按下的快捷键是: F10")

    Case 101

        msgbox("按下的快捷键是: Ctrl+Y")

    Case 102

        msgbox("按下的快捷键是: Ctrl+Alt+Y")

End Select

全局代码

API

<DllImport("user32.dll", SetLastError := True)> _

Public Function RegisterHotKey(hWnd As IntPtr, id As Integer, fsModifiers As KeyModifiers, vk As Keys) As Boolean