如何为你的应用程序设置热键?
发布日期:2021-06-29 03:43:29
浏览次数:2
分类:技术文章
本文共 1011 字,大约阅读时间需要 3 分钟。
启动工程后,在你的工程中添加一个标准模块,然后将下面的代码粘贴到模块的声明段中。Option ExplicitDeclare Function SendMessage Lib "user32" _Alias "SendMessageA" (ByVal hwnd As Long, _ByVal wMsg As Long, ByVal wParam As Long, _lParam As Long) As LongDeclare Function DefWindowProc Lib "user32" _Alias "DefWindowProcA" (ByVal hwnd As Long, _ByVal wMsg As Long, ByVal wParam As Long, _ByVal lParam As Long) As LongPublic Const WM_SETHOTKEY = &H32Public Const WM_SHOWWINDOW = &H18Public Const HK_SHIFTA = &H141 'Shift + APublic Const HK_SHIFTB = &H142 'Shift * BPublic Const HK_CONTROLA = &H241 'Control + APublic Const HK_ALTZ = &H45A 请注意组合键的值必须以低/高位字节的格式进行声明。也就是说是一个十六进制的数字。
后两位是低端字节,如41=a;前两位是高端字节,如01=1=shift。在窗体的Load事件中加入下面的代码:Private Sub Form_Load()Dim erg As LongMe.WindowState = vbMinimized'让windows知道你想要的热键。erg& = SendMessage(Me.hwnd, WM_SETHOTKEY,HK_ALTZ, 0)'检查函数是否执行成功If erg& <> 1 ThenMsgBox "You need another hotkey", vbOKOnly,"Error"End If'告诉windows热键按下后做什么--显示窗口erg& = DefWindowProc(Me.hwnd, WM_SHOWWINDOW,0, 0)End Sub按F5运行程序后,再按下ALT+Z就会看到结果了。
转载地址:https://blog.csdn.net/zcsor/article/details/1739826 如侵犯您的版权,请留言回复原文章的地址,我们会给您删除此文章,给您带来不便请您谅解!
发表评论
最新留言
感谢大佬
[***.8.128.20]2024年04月16日 13时09分33秒
关于作者
喝酒易醉,品茶养心,人生如梦,品茶悟道,何以解忧?唯有杜康!
-- 愿君每日到此一游!
推荐文章
实验一 winrunner的安装使用
2019-04-29
Problem 1001 有多少个整点
2019-04-29
Problem 1002 Another A+B Problem
2019-04-29
Problem 1004 成绩与等级
2019-04-29
Problem 1005 字符串
2019-04-29
Problem 1007 字典序
2019-04-29
Problem 1008 年龄范围
2019-04-29
Problem 1010 字符串II
2019-04-29
割圆法求π
2019-04-29
公式法求π
2019-04-29
汉诺塔问题
2019-04-29
Problem 1011 进制间的转换
2019-04-29
Problem 1012 字符串III
2019-04-29
大数相乘
2019-04-29
将博客搬至CSDN
2019-04-29
jsp中标签意思
2019-04-29
煤球数目
2019-04-29
如何避免成为一个低级的码农?
2019-04-29
程序员的你一定要记住:你所说的每一句话都会被传出!
2019-04-29
一线 IT 公司开发转管理,我是怎么从 0 到 1 的?
2019-04-29