自定义函数
处理快捷键
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