[VB.NET] 设置 全局热键
'自己在原文的基础上稍作修改,只要把以下代码粘贴到Form1的窗体代码中就能直接运行。
'不能用于子窗体中。
Public Class Form1
Public Const WM_HOTKEY = &H312 Public Declare Auto Function RegisterHotKey Lib "user32.dll" Alias _
Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load Private Sub Form1_FormClosed(ByVal sender As System.Object,ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed Protected Overrides Sub WndProc(ByRef m As Message)If m.Msg = WM_HOTKEY ThenMsgBox("在这里添加你要执行的代码",MsgBoxStyle.Information,"全局热键")End IfMyBase.WndProc(m)End SubEnd Clas (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |