[VB.NET] 设置 全局热键

概述'自己在原文的基础上稍作修改,只要把以下代码粘贴到Form1的窗体代码中就能直接运行。 '不能用于子窗体中。     Public Class Form1     Public Const WM_HOTKEY = &H312     Public Const MOD_ALT = &H1     Public Const MOD_CONTROL = &H2     Public Const MOD_

'自己在原文的基础上稍作修改,只要把以下代码粘贴到Form1的窗体代码中就能直接运行。 '不能用于子窗体中。 Public Class Form1

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

总结

以上是内存溢出为你收集整理的[VB.NET] 设置 全局热键全部内容，希望文章能够帮你解决[VB.NET] 设置 全局热键所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。