说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB如何为你的应用程序设置热键?

HTML文档下载 WORD文档下载 PDF文档下载
VB如何为你的应用程序设置热键?

启动工程后,在你的工程中添加一个标准模块,然后将下面的代码粘贴到模块的声明段中。

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就会看到结果了。

修改屏保口令 -VB资料 修改屏幕保护的口令 -VB资料 旋转字体 -VB资料 延时函数-VB资料 一个关于乘法溢出问题的探讨 -VB资料 一组VB实用小程序 一组VB应用技巧 隐藏和显示任务栏-VB资料 应用 WSH 读写注册表和建立快捷方式 -VB资料 VB用 IIF 和 SWITCH 以精减代码 VB用BASIC语言设计Windows风格的用户接口 VB用Form 的 Mouse_Move事件来检查鼠标是否在窗口内: VB用RND()函数加密 VB用SendKeys来捉屏 用VB4.0制作软件封面 用VB5 对Windows 95 任务栏提示区进行编程 用VB5读写注册表实例 用VB5开发商品软件的经验谈 用VB5设计多功能计时器 用VB5制作文字上卷效果 用VB6.0实现打字效果 用VB编写DirectX7.0游戏(上) 用VB创建Excel报表 用VB读取和控制Windows的中文输入法 用VB将命令行软件Windows化 用VB进行移位操作 用VB开发CAI软件的小经验 用VB开发分布式应用 用VB切换三个特殊键 用VB生成EXE文件后,如何在后面加上参数?这个参数怎样传给VB 用VB实现动态显示操作进度程序 用jfreechart画出的图形,里边的汉字不太清楚,有没有解决的办法,要是图形小一点,模糊不清,难看死了,请问有没有解决办法?? 在vc.net中为什么新建的一个dialog,上面有双重的图象啊? asp&oracle问题 .net2003中vb升级向导有没有接口可以被其他程序调用? 以二进制方式打开文件,用ftell计算文件大小,为什么有时对有时不对? CHtmlEditView中如何实现表格的单元格大小调整? 城市夜归人 请问把一个二进制文件转换成文本文件,再把文本文件转换成二进制文件,该怎么做?求源代码?或有该代码的网址链接,多谢!不胜感激! 如何在一个网页中使用多种样式表显示多种效果? 直接用http调用代理怎么进行权限设置 CHtmlEditView中如何实现表格的单元格大小调整? 各位老大。。。如何用asp加密解密中文字符串,小生有礼了! 这段程序怎么不能运行?thinking in java 我的应用程序启动连接数据库时自动拨号,怎么去掉?? 谁给讲讲多线程!进着有分! 菜鸟问:jbuilder9比8都增加了什么功能?做了哪些改进? 给菜单加的快捷键怎么不管用呢 不能发mail 请问:这个存储过程哪儿不对呢?为什么执行不出来呢? 在dw中图片格式问题! CHtmlEditView中如何实现表格的单元格大小调整? 98启动的时候出现”press any key to continue"! 怎样将ASCII串转换成十六进制数? 在函數與過程裡中止其執行用什麼命令? CHtmlEditView中如何实现表格的单元格大小调整? java程序员都得会rose,懂UML吗? Red hat 7.2下编译程序出现的问题 rh9.0 怎么设置共享网络模式(NAT)? CHtmlEditView中如何实现表格的单元格大小调整? XP注册表文件名和保存位置?如何察看其他系统注册表的内容? DLL中的PROPERTYSHEET中使用CHTMLVIEW出现的问题 把编译好的程序作为windows服务注册后,启动时报错 Red hat 7.2下编译程序出现的问题 在客户端提交表单出错 win2000 server 管理员密码如何修改? 如何将 &#20013&#22269&#20154&#27665 转成 汉字"中国人民"? oralce导入问题 这里没有人用WEBMATRIX吗,在WEBMATRIX下如何引入EXCEL组件,俺要跳楼了。 wuxq7311(小清) 近来! 把编译好的程序作为windows服务注册后,启动时报错 用ip>"211.56.154.106" and ip<"211.56.154.210"能否控制访问的范围? 如何删除当前文件夹下的所有以*结尾的文件,即可执行文件 学习串口通信系列问题(一) (水园送分贴)大家觉得这个网站怎么样,给点评价 把编译好的程序作为windows服务注册后,启动时报错 触发器问题,高手帮我 问一个关于树控件的问题。请指教! 没有职业资格证书,没有毕业证书。仅有的是坚强的信念... 请各位帮忙提一下意见:偶想自考,选择什么专业? 请问:请问设计模式中最常用的有哪几种? 请问如何在Javascript内得到Url内的变量? MACHU PICCHU怎么样 7年级英语12单元50—51急啊,100分悬赏,对了再加+!云南省的,人教版 怎样的雄鸡 形容词 Some time,sometime,sometimes,some times的中文意思还有Look over的中文意思 边境封锁 (打一“外交词语”) summarize the features of Dickens's novels 数学37页的11题.正方体是27个小正方体拼成的一个大正方体,把它的表面全部涂上绿色.(1)没有涂到的颜色的小体有多少块?(2)一面涂色的小正体有多少块?(3)两面涂色的小正方体有多少 四年级数学37页5题怎么写上册题目火车昨天晚上8点开出,估计在什么时候可以到达广州?火车每小时走110千米已行驶了18小时 广州2294千米 15个简单宾语从句(if,that,疑问词 引导的各5个)要简单的. who帮我讲一下 附加疑问词. Where is Machu Picchu(马丘比丘)?A.It is on an island .B.It is on a mountain.C.It is under the sea. 埃及前总统穆尔西审判推迟至2014年巴基斯坦发生严重交通事故 造成10死美国两名移民者闯入国会山抗议被逮捕法记者在马里遭绑遇难 奥朗德将赴机场法国两座清真寺遭人涂鸦 惊现德国纳粹泰国反赦免法案集会升级 英拉流泪劝放叙利亚总理说消灭“恐怖势力”只是时间财经观察:英国经济复苏路上的政党博弈中国男子在日本偷车被捕 日警方连开4秘鲁与法国签署防务合作协议环球佳丽秀美衣 美国小姐化身“变形金秦岭深处千年银杏落叶“铺金毯”河北一化工企业发生疑似化学品中毒事故广州政法委原书记吴沙2次乘私人飞机旅美国洛杉矶机场“感恩节人潮”料将刷新世界儿童日 22名年轻爸爸集体修炼“4外卖小哥不送外卖 狂追老太太一下午乌兰察布—阿拉木图中欧班列始发,全程缅北战局从边境向缅内地推进(图)微电影《万绿·缘》20日首映 引起闯“金孔雀”余旭骨灰安葬故乡烈士陵园 印度高速列车出意外200余人死伤 或斗气王妃15岁(特工穿越)粉嫩夫君是匹狼:独自去偷欢【全文完】孙风修仙传前妻,为我生个宝宝吧!遇见是谁的错:罪爱富二代红楼逸梦重生之八神太一瓷婚海贼王之冒险家凤起龙涌:火爆王后不吃素与狼共枕:遭遇大牌老公成吉思汗广场旅游西山公园旅游呼伦贝尔大草原旅游翡翠岛旅游湖南省第一师范学院旅游爱晚亭旅游岳麓书院旅游天心阁旅游情人湾潜水旅游大东海旅游甘什岭槟榔园旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘