如何为你的应用程序设置热键?
2007-08-12 21:53
197 查看
启动工程后,在你的工程中添加一个标准模块,然后将下面的代码粘贴到模块的声明段中。 Option Explicit Declare Function SendMessage Lib "user32" _ Alias "SendMessageA" (ByVal hwnd As Long, _ ByVal wMsg As Long, ByVal wParam As Long, _ lParam As Long) As Long Declare Function DefWindowProc Lib "user32" _ Alias "DefWindowProcA" (ByVal hwnd As Long, _ ByVal wMsg As Long, ByVal wParam As Long, _ ByVal lParam As Long) As Long Public Const WM_SETHOTKEY = &H32 Public Const WM_SHOWWINDOW = &H18 Public Const HK_SHIFTA = &H141 'Shift + A Public Const HK_SHIFTB = &H142 'Shift * B Public Const HK_CONTROLA = &H241 'Control + A Public Const HK_ALTZ = &H45A 请注意组合键的值必须以低/高位字节的格式进行声明。也就是说是一个十六进制的数字。
后两位是低端字节,如41=a;前两位是高端字节,如01=1=shift。 在窗体的Load事件中加入下面的代码: Private Sub Form_Load() Dim erg As Long Me.WindowState = vbMinimized '让windows知道你想要的热键。 erg& = SendMessage(Me.hwnd, WM_SETHOTKEY,HK_ALTZ, 0) '检查函数是否执行成功 If erg& <> 1 Then MsgBox "You need another hotkey", vbOKOnly,"Error" End If '告诉windows热键按下后做什么--显示窗口 erg& = DefWindowProc(Me.hwnd, WM_SHOWWINDOW,0, 0) End Sub 按F5运行程序后,再按下ALT+Z就会看到结果了。
相关文章推荐
- android如何从应用程序进入设置的各个页面
- Android 判断应用程序获取通知栏权限是否开启,以及如何跳转到应用程序设置界面
- 如何使用DevExpress DXTREME进行应用程序的视图设置
- 如何使用 Barracuda 防火墙设置/保护 Azure 应用程序
- windows10 如何给应用程序设置快捷键及一些常用好玩快捷键
- 辅助-Code::Blocks如何设置热键动画教程
- 如何:设置 Silverlight 应用程序以进行CodeUI自动化测试
- 如何使用 Barracuda 防火墙设置/保护 Azure 应用程序
- Silverlight如何设置应用程序独立于浏览器运行
- C#做窗体应用程序时,对excel涉及的背景色设置,边框设置,数据如何导入等的实现
- iOS如何添加图片资源以及设置应用程序图标
- Symbian 如何设置应用程序皮肤
- MFC编程时如何给程序设置热键
- AspNet Core Web 应用程序的启动 当项目中 没有Startup.cs 类如何设置启动 配置等等
- 如何设置应用程序窗口的初始大小和位置
- 如何在 Apache 中为你的网站设置404页面
- QT如何设置应用程序的图标
- Qt中如何添加ICON图标 Qt设置应用程序图标
- 如何把一个应用程序或服务注册为windows服务并设置为自启动
- 设计模式(一)单例模式:创建模式 ASPNET CORE WEB 应用程序的启动 当项目中 没有STARTUP.CS 类如何设置启动 配置等等