Public Const WM_HOTKEY = &H312
Public Const MOD_ALT = &H1
Public Const MOD_CONTROL = &H2
Public Const MOD_SHIFT = &H4
Public Const GWL_WNDPROC = (-4)
Public Declare Auto Function RegisterHotKey Lib "user32.dll" Alias _
"RegisterHotKey" (ByVal hwnd As IntPtr,ByVal id As Integer,ByVal fsModifiers As Integer,ByVal vk As Integer) As Boolean
Public Declare Auto Function UnRegisterHotKey Lib "user32.dll" Alias _
"UnregisterHotKey" (ByVal hwnd As IntPtr,ByVal id As Integer) As Boolean
Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load
'注册全局热键
RegisterHotKey(Handle,MOD_CONTROL,Asc("T")) '第一个热键 Ctrl+T
RegisterHotKey(Handle,1,nothing,Keys.F4) '第二个热键 F4
End Sub
Private Sub Form1_FormClosed(ByVal sender As System.Object,ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
'注销全局热键
UnRegisterHotKey(Handle,0)
UnRegisterHotKey(Handle,1)
End Sub
Protected Overrides Sub WndProc(ByRef m As Message)If m.Msg = WM_HOTKEY ThenMsgBox("在这里添加你要执行的代码",MsgBoxStyle.information,"全局热键")End IfMyBase.WndProc(m)End SubEnd Clas
原文地址:https://www.jb51.cc/vb/261488.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。