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

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

基于Python的行为驱动开发实战 面向WP和Android!微软车库发布多款免费应用 GRPC:谷歌发布的首款基于HTTP/2和protobuf的RPC框架 革命,就是现在!——CES 2015行纪 HTML5游戏引擎排行榜 Construct 2最受欢迎 2015手游营销新趋势:电视广告,及其投放逻辑 详解下一代开源混合应用框架Reapp 应用内一键交易!Google公布Android Pay项目 Timehop为什么要放弃Rails,转向Go? 无线充电技术走入客厅 宜家推出“Home Smart”系列 发布仅一年,虚幻引擎4宣布完全免费! HTML5初学者福利!11个在线学习网站推荐 Qualcomm发布Snapdragon 820与超声波指纹识别技术 App Store应用僵尸化:没品质没资本的必然走向 Unity 5正式发布:支持21种平台、个人版免费! 创新高性能移动UI框架——Canvas UI 框架 取精华、去糟粕!适合iOS开发者的15大网站推荐 Swift如何优化性能? 【程序员电子刊精选】明道CEO任向晖:企业也需要养成好习惯 你信吗?重构软件并不会改善代码质量 融合VR与AR:uSens推出虚拟现实手机头盔 4月17-18日,OpenStack、Spark、Container齐聚OpenCloud 2015 第四代CSS选择器,那些让你激动的新特性 联通WO+开放平台“App计费 ” 保障手机应用付费安全 Valve推Lighthouse技术,欲解决VR设备眩晕感 全球移动开发者报告:Swift崛起,物联网大火! 不圈地自萌!10个UX设计经验分享网站推荐 苹果继续改改改!Swift语言何时能稳定? 封闭还是开放?Android Wear离iOS究竟有多远 TIOBE 2015年3月编程语言排行榜:CoffeeScript首次进入TOP 100 2015网页摄影图的六大流行趋势 宽字符转换 关于TeamSource的详细使用 KindDiary日记软件发布了 关于论坛分数的问题,不知道大家有没有这种情况 RTTI执行时期型别辨识、动态生成的用处在哪些方面,它们的好处到底在哪里?举个例子来说吧!! 困扰达20多天的两个问题…… VB怎样调用简单的(没有输入输出参数据也没有包)Oracle存贮过程?急急!! 给几篇VC的经典文章,最好是自己写的! zxyufan(宇凡)请告诉我你的mail,我的是ipman@sohu.com (ipman) delphi中获得当前系统日期是什么函数? vb中有沒有像VC中的多行注解格式/*......*/ 大家帮我一个朋友看看:这种公司还能呆吗? 随机函数是? 软件发布:KindDiary日记软件发布 delphi6.0连接SQL SERVER2000时的问题 杭州博讯软件有限公司招聘PHP+MYSQL 程序员 CSDN怎么加不成分了?我都试了3、4遍了,迷茫中........ 关于*.ini 关于任务栏隐藏的新问题 令狐冲你在么,有点事向你请教 怎样改exe图标。 用winsock1.1编写TCP方式通讯。执行recv函数出现提示框“Unhandled exception in XX.exe(MSVCRTD.DLL): 0xC0000005:Access Violation.” 请教高手!在用NetMessageBufferSend()函数时为什么编写时出现提示信息但编译时却说undeclared identifier const SQ = $82040030 中给SQ常量付的值是什么值?能解释一下吗? 请大家帮帮我(CListCtrl的问题)! 怎样使用script语言使当前所有的超级连接失去焦点?--包括网页当中的框架! 简单的同步问题…… 如果解决命名冲突? IP指定端口的sniffer Delphi6 下 安装 ZipTV 4.14 问题 奇怪的编译错误。。。 谁知道有什么软件可以锁定目录? 请教为什么我的javah命令总是显示error: Class ***.class could not be found. 现在不能给分了吗? 请问如何在Oracle中新建用户并且如何建立新的数据库。 着急,时间格式 软件发布:KindDiary日记软件面世 如何屏毕掉Ie页面上方的打印项!!!!!急急急 关于Sybase SQL Anywhere 5.0的问题? 用winsock1.1编写TCP方式通讯。执行recv函数出现提示框“Unhandled exception in XX.exe(MSVCRTD.DLL): 0xC0000005:Access Violation. 算法的作业,可以帮忙么?谢谢! 200分再问个小小小小小问题????????????????????????? 程序员年龄及联系统计 寻找一个API的用法的例子 存储过程问题,高分求救,块点啊 哪里有crytal report的汉化包下载?急急!! 请问shtml 与 html 有什么区别? 请教问题,保证给分 急!急!!(帮帮我吧,小女子这厢有礼啦!) 急!!怎样让图片循环显示? CDOWF是什么东东,谁能解释一下,还有,怎么用Outlook2K开发流程 1/2+1/(2+3)+1/(2+3+4)+1/(2+3+4+5)+...+1/(2+3+...+200)=?小学奥数 写一篇100字左右关于手机实名制的利弊英语短文利;1抵制和减少通过手机进行的犯罪活动2约束和管理移动通信市场.弊,1登记个人信息比较麻烦.2个人信息有可能被泄露,并发表个人评论 80乘以80%+90乘以80%用Excel公式怎么计算 1/2+1/(2+3)+1/(2+3+4)+.+1/(2+4+5+...)200)=? 求一篇主题是手机的英语400-500词作文别太垃圾的复制,ok? 如一个柜高80厘米,长270厘米,宽60厘米,怎么算的有多少平方米? 1 2 3 4 5=-200在式子中的左边任意添上若干个+ - x ÷ 号使得到的等式成立,必要时可以将几个数字合并成一个数,也可以填上括号. 急求一篇关于手机实名制利与弊的英文作文 根据提示写一篇约50字的短文.假设你是Tom,请描述你的一个周末.周六:上午做家庭作业.下午呆在家看电视.晚上打电脑游戏.周日:上午打扫房间.下午拜访一个朋友.晚上和妈妈一起去购物.要 2/1 + (2+3)/1 + (2+3+4)/1 + (2+3+4+5)/1 + . (2+3+4+...+200)/1解释:二分之一 加 (二加三)的和分之一 加(二加三加四)的和分之一 加(二加三加四加五)的和分之一 加 .(省略号) 加 (二加三加四. 一块写有校训的花岗岩石料质量为3.18×104 kg、密度为2.65×103 kg/m3,立在用砖砌成的长4m、宽2m、高0.5m的水平基座上(如图所示,石料下底平整),石料与基座的接触面积为2.12m2.已知砖的密度为2. 在盐水选种中,需要密度为1.1G/CM^3的盐水,某同学配制了500CM^3的盐水,成的他的质量是600G,问这样的盐水是否符合要求?如果 不符合要求,需要加水 还是盐,加多少? 1 2 3 4 5怎么才能等于200 一块写有校训的花岗岩石料质量为31.8t、密度为2.65×103kg/m3,立在用砖砌成的长4m、宽2m、高0.5m的水平基座上(如图”所示),石料与基座的接触面积为2.12m2.已知砖的密度为2.05×103kg/m3,基座砖 一项工程,若甲单独做需要30天,乙单独做需要20天,现在甲,乙合作了4天,还剩下工程的几分之几 t在读音里面有几种发音?在所有的英语发音的读法里有几种t的读音呢? 【河北】一块写有校训的花岗岩石料质量为31.8t、密度为2.65×10/m,立在用砖砌成的长4m、宽2m、高0.5m的水平基座上(如图所示),石料与基座的接触面积为2.12m.已知砖的密度为2.05×10㎏/m,基座砖 一项工程,若甲独做需要30天,乙独做需要20天,现在甲乙合作了4天,还剩下工程的几分之几? 假设TOM是你远在英国的朋友,请根据下面的提示内容,写一篇80词左右的短文描述一下他们一佳人使用交通工具对情况.1.tom的学校离家5公里 他经常骑自行车去上学.下雨的时候坐公交 2.妈妈在医 一块写有校训的花岗岩石料质量约为32t,立在用砖砌成的长4M,宽2M,高0.5M的水平基座上,石料与基座的接触面积约为2M².已知砖的密度为2.05x10³kg/M³,基座砖缝中水泥砂浆的密度与砖的密 把一块厚度为5厘米、密度为2.5×10的3方千克/立方米的砖块平放在水平地面上,它对地面的压强是多少帕?详细回答急~~ 用音标表出下面字母的读音如:如:T[t ei ] u:[ ] R:[ ] Q:[] Q吸=cm(t-t0)Q放=cm (t0-t)解释一下, 有一种砖块的密度为2500千克/立方米,能承受的最大压强为2450帕.(接上面)若把这种砖蒸汽地堆放在能承受2000000帕的水平地面上,则砖最多能堆多高? 单词中t的发音一般来说,音标中以/-t/结尾的发音都是重爆破,这个没问题,比如cut吧,但是问题是cutting,好像这里面的t的发音带点l的感觉,形象一点就是,一张纸放嘴巴面前,读cut时,最后t的发音会 一项工程,甲先单独做2天,然后与乙合作7天,这样才完成全工程的一半.已知甲乙工作效率的比是3:2如果这件工作由乙单独做,需要多少天才能完成? EXCEL统计公式:1万以内提0费用,1-2万提70%费用,2-3万提60%,3-4万提50%,求费用总额求一个分阶段计提费用的公式,1万以内提0费用,1-2万提70%费用,2-3万提60%,3-4万提50%,4-5万提40%,但是5万以上一律提取50 一块长方体花岩石纪念碑高,宽,厚分别为10m,3m,2m rou为2.5×103次,地面最大能承受压强为1.2×103次,为使地面能承受纪念碑,把纪念碑立再高为1m,rou为2×103次得长方形基石上?2 若纪念碑直接矗立在地 请根据表格中的内容,写一篇60次左右的短文,介绍一下Linda和Tom的新年计划.开头以给出,不计入词总数.name New Year‘s resolution How are they going to go?Linda learn to play the violin,get good grades join the violin c EXCEL中怎么操作啊. 45%一下,为0.45%-60%按续费额3%计算.60%-70%按4%,70%-80%按5%,80%以上按6%计算 以下表写一篇 以“tom‘s busy day” 的60词作文 甲乙两工程对合作一件事,七天完成,两对先合作五天后,甲工程的全部人和乙工程的五分之一,调到别的项目,剩下的人做,有过了六天刚好完成.那么甲乙单独做完成这项工程要几天? 假如你是小男孩Tom,根据表格内容介绍一下你自己和你哥哥的情况,写一篇的60词左右的短文. 九年级物理同步答案第十二章物质的比热容 一项工程,甲做7天完成,乙做5天完成,现由甲单独做1天后,乙加入,则乙做多少天后完成了这项工程? 一般块石和花岗岩石头的密度是多少 根据下面提示写一篇不少于60个词的短文.1:我的朋友TOM是学生,是一个有趣的人,人人喜欢他.2:因为他的父亲是美国人,母亲是日本人,他出生在中国,所以他会说中文,英文和日文.3:他的美式 小明计算乘法时把因数57看成了75,结果积增加720 花岗岩的密度? 用英语将TOM一天的作息写成文章按以下数据写:6:00 get up 6:15 run 6:40 take a shower 7:00 eat breakfast 7:30 go to school8:00 school start 12:00 eat lunch 16:00 go home 17:30 eat dinner 18:00 do home 19:00 watch TV 21:00 go to bed.. 英语音标中“t”的发音感觉不象单纯我们汉语中的“特”,感觉还有点“车”的音,想问问该怎么发?能告诉发音要领,舌头口型怎么放,或者告诉视频链接更好, 花岗岩的密度是多少? 5分之1比4分之1少多少%(列式,我会给好评) 计算一道乘法题,把一个因数75看错成57,这样乘得的积比正确答案少多少 cm是什么计量单位 一纪念碑的碑体质量是100t,立在一平面上,基石高1m,她的密度是2*10^3kg/m^3,地面允许成熟的最大压强是1.176*10^5P,石碑的底面积最大是多少?(g取9.8N/kg)麻烦在回答的时候把过程写清楚 英语音标中t在词末发音注意是音标那个框子里末尾的t,不是单词末尾的t.我记得有的末尾t读T,有的读D,是怎么个规律啊(美式) μM是什么计量单位,与cm是什么关系.1cm=?μM Q=cm△t 中△t可以表示为(t-t0)或(t0-t)是不是t0为初始温度 t为变化后的温度 所以升温是(t-t0) 降温是(t0-t) 冬冬计算一道乘法计算题把一个因数75看成了57,这样乘得的积比正确答案少百分之几 K3怎样设置 常用计量单位 我要设置基本计量单位=千米 常用计量单位=公斤 换算率=9.5 冷水吸收的热量:Q吸=cm(t1-t0),∵Q吸=Q放,∴热水放出的热量:Q放=c2m(t0′-t1)=cm(t1-t0),c2m(t0′-t1)=cm(t1-t0)怎么解? 冬冬做一道乘法题,把因数75看成57,这样乘得的积比正确答案少( )% 有一项工程甲乙两个施工队参加竞标 已知甲队5天的工作量乙队要7天完成,如果乙队单独施工要35天完成……有一项工程甲乙两个施工队参加竞标 已知甲队5天的工作量乙队要7天完成,如果乙队 甲乙两个工程队合做一件工作 7天能完成 两队先合做5天后.甲乙两个工程队合做一件工作 7天能完成 两队先合做5天后 甲工程队的全部人员和乙工程队人员的五分之一调到其他工作 剩下的工 小马虎做一道乘法题,他把其中一个因数28写成了23,结果得到的积比直爽的积少75,那么正确的各是多少?急要答案 写真,宽1.5,25一平方米,怎么算啊 假如你是李涛,请依据下列表格信息写一篇介绍你和Tom的小短文.Name From Age Telephone numberLI Tao China 9 (010)8269-6969Tom England 12 (010)8270-6970 使用手机的好处和弊端,以及我的看法写一篇100个单词英语短文 一个蓄水池的长是20m,宽是15m,高是3m.若在这个蓄水池的底部和四周都涂上水泥,需要涂水泥的面积是多少平方米?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn