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

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

护航科技吴伟湘:IT离线安全体检服务将带来颠覆 百度王继平:移动互联网时代云平台思路 “第八届开源中国开源世界高峰论坛”火热开启 微软发布SQL Server 2014预览版,展示内存数据库技术 帮助软件开发者提高效率的10个小窍门 我想做个程序员:Technovation Challenge圆女孩编程梦想 未来我们开发的Google Glass应用将会是什么样? 独家:前RIM大中华区总经理刘征宇,加入Appconomy 用一个API搞定一切 Segment.io为移动开发者提供便利的分析数据分发服务 TIOBE 6月编程语言排行榜:JavaScript回归前十 《Kingdom Rush Frontiers》上线后 迅速抢占27个国家游戏榜首 移动周报:85后程序员,iOS开源项目,细数7天大事件! Instagram:从Redis到Cassandra 成本节省1/4 乐元素CTO凌聪访谈:游戏引擎技术选型之王道 iOS 7的新设计并非止于外表 WWDC 2013大会10大启示:正向开发者支付大量现金 云计算大会微软专场成功举办 Windows Azure公众预览版上线 IBM全球大裁员 在美国裁员已经开始 动动鼠标,决定“中国十大优秀开源项目”的归属 为改善Flickr 雅虎收购拍照应用开发商GhostBird 让你轻松学习新代码库的六个步骤 RESTful API 设计最佳实践 谷歌11亿美元豪购Waze原因:获取数据 争本地广告市场 为什么大家都要疯狂吐槽iOS 7的扁平化设计? 伟大的程序员是天生的,不是造就的 比Hive高效7倍 Facebook推新一代查询引擎Presto 未来的存储系统设计——PMC技术交流会举行 第五届中国云计算大会PPT尝鲜:十位专家分享的架构实践 “DIY”可穿戴设备:索尼开放智能手表固件 在微软的八个月里,我学到了这些 谷歌实习生每月都拿$6000,你呢? 用Asp怎么得到用戶的機器名? 《Java与模式》一书作者的专栏 各位长老,如何修改本机的网关并让其立即生效? 关于数据表查询的问题? 创建二叉树及遍历的问题 高手请进! 研究生到底上些什么课,偶想知道,好明确自己的方向,请知道的朋友来谈谈。 如何在ASP.NET中连接PROGRESS数据库? VC中如何调用VB写的 DLL中的函数? 如何在程序背景中添加背景图片? postgreSQL中文问题 那里有informix的书下载 高分求助 MPEG4的视频问题 想为TListBox组件添加水平滚动条,有什么办法 在C#中,与CHTMLView类对应的控件是什么? 我有个小的30万象素的数码照相机,能用vb编程控制它自动照相么? 为什么我编译最基本的java文件总出错,告诉我import javax.servlet.http.*包 在linux下安装应用程序 关于串口的疑难问题 怎么连接数据库啊 请问如何用setfilter检索日期型数据 谁熟悉mpeg4 Audio? 怎么实现在界面上画网络拓补图!!!??? 一个关于企业上网的问题--高分求教 请问各位大哥如何屏蔽掉不想让此IP访问特定的网页? 厦门地区等待程序员办证通知的朋友,谁先知道具体时间请公布! 我调用数据库中的数据时候出现问题了 菜鸟提问! 串口问题 高分求两个文件:分别为tlbimp.exe和excel.dll 50分一个 串口问题 有谁知道HSV和RGB两种颜色模式的转换公式? 关于照片显示,请大家讨论 请教:关于表格的滚动问题 一个关于企业上网的问题--高分求教 数据类型转换问题 有了解“广州南方电信系统软件有限公司”的哥们么,了解一下情况。 有谁知道HSV和RGB两种颜色模式的转换公式? VB中的坐标问题 求SQL*PLUS帮助文件 有谁知道浙大中控软件公司的? 服务器能上sina or sohu的免费邮件而客户机却不能 大家来讨论一下 用VC编程序能否访问internet上的Access数据库吗?UP有分!! 请问如何在VC中获取CPU温度、CPU速度以及风扇转速? 如何在网页里加上代码 来实现网页打印功能?????? 为什么我安装的Apache不能用! 请问,用java可以侦听游戏遥杆的信号吗?该怎样做? 厦门地区等待程序员办证通知的朋友,谁先知道具体时间请公布! AutoTickets Sample 初始版 十万火急:请问在数据库中的一个字段如何放入*.doc的WORD文档?? 装过生物球的杯子能不能喝水? 10mL0.1mol/LKOH与10mL0.1mol/LKHCO3,再加入10mL0.1mol/LBaCl2.会怎么反应 光合作用产生气泡是因为产生氧气还是吸收水分?叶片吸收水分会产生气泡吗? 约克螺杆式冷水机组的开机、关机的步骤及保养 当用电压表测某电路两端电压时,测量值总是大于真实值这句话对不对噢.不对请举个反例反例 声的速度每秒多少块! 冷水机组如何开关机?特灵,开利等品牌有什么相同和不同点? 测量电流和电压时,仪表的读数总是比实际值(  ).(A) 大 (B) 小 (C) 一样大 (D) 不能确定 NH4OH里面是氢键结合成的,NH4Cl里面是配位键结合成的, 晓出净慈寺送林子方怎么背 在距离地面同一高度将三个质量相同的小球以相同的速率分别竖直向上向下平抛则三个小球落地时 落地的时间? 存在配位键的化合物为什么不一定是配位化合物? 《晓出净慈寺送林子方》古诗诵读配什么乐曲? 圆弧的圆心(50,50)起点坐标(100,80)角度90圆弧的长多少 台风登陆以后,引起了能量的消耗,但台风并不会很快消失,那它从什么地方得到能量来补充补充的能量从什么能量转化来的? 房建的测量规范是什么?就是土建方面的测量规范及要求,主要是主体结构误差控制在多少. 编程时.I.J是圆弧起点到圆心的差值,怎样算出差值是正是正负 太空舱内的水与地面的水相比密度哪个大8上 是谁透过宇宙飞船看地球是球形的中国人 某同学在观察到锥形瓶内大量气泡时、就开始收集氧气,过一段时间后用带火星的木条伸入瓶口、瓶中呵瓶底,都未见木条复燃,原因是 台风的来源怎么来 房建测量中500mm控制线是什么? 观察到锥形瓶内有大量气泡时,用排水法收集氧气,过一段时间后,用燃着的木条深入瓶口、瓶中、瓶底都未见木条熄灭,可能的原因是? 硫酸铜晶体是共价化合物还是离子化合物?不要长篇大论的,个人觉得是离子吧..主要我看是晶体。硫酸铜是离子化合物那是肯定的啦~5水合的还是晶体么? 房建坐标测量允许误差是多少啊 为什么在用排水集气收集氧气时,会看到瓶里的水冒气泡,而一般,池塘里怎么没有气泡 共价化合物中有配位键吗?形成配位键的两个原子的化合价怎么确定? RNA干扰的机制和意义? 为什么不同质量的物体能同时落地 初中知识如何区分共价化合物和离子化合物?是否区分不了?那么高中是如何区分的? 如何构建RNA干扰载体?另外简短的解释下正义表达载体和反义表达载体的意思 排水收集氧气时,为什么刚开始不收集气泡 为什么汽车是倒水滴形状?为什么是倒水滴状而不是正水滴状?按照空气动力学原理,水滴状所受的空气阻力是最小的.而为什么跑车水滴大头在后面水滴尖在前面的倒水滴状而不是水滴大头在前 关于RNA干扰和反义RNA之间的关系.RNA干扰是一种现象,是利用反义RNA与目标mRNA互补结合后,抑制该mRNA的表达?而反义RNA是出现RNA干扰现象中的一种必需的物质? 物体的质量越大引力越大,那为什么两个质量不同的球同时落地?难道两...物体的质量越大引力越大,那为什么两个质量不同的球同时落地?难道两个不同质量的铁球与地球之间的引力相同吗? 何时增发国债?紧缩还是嘭涨?为什么?是财政政策还是货币政策? 电源正负极之间的电势差为什么不是内电压或电动势呢 两个质量不同的物体向下掉,是否同时落地?同题,是不是任何物体坠落速度相同? 醚键可以发生消去反应吗 湘教版高中地理各个年级分别用那几本书? 光的速度每秒多少,声的速度每秒多少, 醚键与Na的反应啊?是怎么样的不懂哦~ 河北省08届高中地理有几本书麻烦各位,我有高一的上下册(必修)还有第一册,第二册(选修)请问全吗?到底有几本课本?谢谢.还要求助一下高中文科数学.我的数学成绩很差.应该怎么办.最基 光和声音的速度分别是多少公里每秒 请问含有配位键的化合物或者离子就是配合物吗? 为什么纸沾到水以后会变形呢? 硫酸铜晶体是不是配合物? 为什么水滴的形状总是下粗上细讲得简单些,偶能听得懂(本人刚要上初二) 0.1mol/LKOH溶液的pH 下列哪种微生物对抗生素不敏感( )A.衣原体B.支原体C.立克次体D.病毒E.螺旋体 为什么水滴在滴落时呈上尖下圆形 数字万用表,测出的读数不准,比如一节5号电池的电压只有零点几伏,问能修好么? 质量不同的小球从同一高度落下为什么会同时落地伽利略的实验 1发行国债,是财政政策吗?2.央行购买国债,是货币政策?1.国家发行国债,是财政政策?2.央行购买国债,是货币政策? 怎么利用燃烧热计算化学反应的焓变 插入氧气管为什么会产生泡泡 手中拿着的茶杯放手后会落到地面,是否受惯性 DT830B数字万用表测电瓶电压我买来一个数字万用表,却不知如何使用,我想测电瓶的电压,就把表调节到直流电压档20V.黑笔接电瓶负,红笔接正.可表就是没有一点反应.还有测电流的时候与电瓶桩 两种溶液发生化学反应,生成氧气,那么液面一定会有气泡产生吗? 价格和国债属于财政政策还是货币政策?这二者什么区别? 克里中东之行访埃及 停留数小时修复两美国务卿克里访问埃及 承诺美将与埃过伊朗最高领袖称美是微笑的敌人 对核谈美研发新型间谍机 可一小时内到达全球泰国芭堤雅发生游船沉没事故 造成中国如何确保机密数据安全?把密码藏在潜意港媒:设计师为《人民日报》新大楼辩护中国如何从西方垃圾中获益港报:“伙伴关系”成中国重要外交工具浙江普陀山大型翡翠观音宝像开雕(图)广州高端相亲会测谎仪上阵 许多女性表温州两干部停车救人被撞身亡 被追授“赣州副市长否认脐橙染色 记者暗访揭染孙杨涉嫌无证驾驶 被交警带走或面临1珠三角乒乓争霸赛明年规模扩大 奖励金英超门将开场13秒进球 还是英超距离菲律宾副总统:人质事件总统不可代表整香港政务司司长:港府重视青少年就业问台民间团体募旧鞋当“武器” 将围攻蓝台“检察总长”黄世铭被起诉 后续影响2013杭州国际马拉松鸣枪“光猪勇士易观分析:网络视频市场走向生态化发展乐视商城正式落地印度 乐视全球会员价潍坊中心市区六成考生能进公办高中妥妥当端午猜天气活动获奖者名单公布【大声】为《百鸟朝凤》求院线排片,这“魔鬼教练”马加特出任山东鲁能主教练潍坊免费艺术培训班即将开课四门课程供延承未必经典,小米5与魅族PRO6谁美国队长负分爆棚,护基友灭队友,不送从石油战争到货币战争,真正的战争离我2分钟去掉蔬果残留农药!为家人,为健把握五月,我要白成一道光#喜讯#终于可以光明正大的跟女神污污专家:海昏侯死因或为香瓜子被下毒 长体育圈有哪些“装逼”被啪啪打脸的?你的后备箱不止能用来装姑娘……我们和4个处女聊了聊为什么坚守特朗普“俘虏”石油大亨 华尔街金融进中国敲山震虎:在永兴岛高调部署防空三有奖竞猜!谁能打破平板支撑吉尼斯世界为什么很多男人30岁之后 感觉自己喝
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘