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

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

你的数据库安全吗?CryptDB数据库软件可查询加密的SQL数据库 收藏!斯坦福Andrew Ng教授“机器学习”26篇教程全译 美国云计算价格战爆发 王寒:12岁儿童,该怎样开始iOS开发? 陈昊芝:腾讯!让我说你什么好? Top Paid与Top Grossing定价策略的差异 Android版百度云推送正式发布 为何开发者应推动公司开源? 从AppGratis被下架说起,苹果或将再次付出代价 58同城的“烦恼”——8K月薪安全工程师引发的入侵 软件开发实践的24条军规 思科 IBM 微软等巨头联合开发开源SDN项目OpenDaylight 巾帼不让须眉:2012年度云计算领域Top 10女性 中移动全力推进NFC 5月起乘公交可刷手机 支持Android与iOS,Qt 5.1 Alpha全新亮相 Google Play:劣质Android应用已无藏身之地! 360推出信用网站认证开放平台 联合百家协会围剿钓鱼网站 经验分享:百度测试架构师眼中的百度QA(一) 在线旅行服务行业开放API带来的新机遇 专访:悬疑恐怖游戏Year Walk美术及音效设计师 解密:微软都柏林数据中心的神秘“免费冷却”装置 云计算如何影响数字化营销? 榜单:十位帮我们打理数据的存储大佬 OpenStack Grizzly版发布 Comcast、CERN成为新会员 谷歌携Blink来势汹汹 WebKit将成明日黄花? 星巴克与苹果合作 顾客可免费下载付费App 微信回应信令争议 将启动2.5G网络优化计划 凤凰网CTO吴华鹏离职 先后供职长达10年 外媒:开发者每周编码时间仅19.1小时 AppGratis CEO现身说法:应用被苹果儆杀始末 一个Web设计师眼里的云计算 请问用javaApplet如何控制IE界面? 点对点的讨论 水平考试与资格考试及格分别是多少分? 如何再网页中实现打印功能,份也打印。 我发现了一个网站的BUG,我该怎样进去? 到处都是泡泡,俺看的想吐,晚上再来算了。 怪事, 屏幕变黑白 我的问题_6 MYSQL中like的问题 请教打印预览问题 请问,如果我想把,file edit tools window这个主菜单栏动态去掉,怎么做? 如何用程序代码实现在Memo文本编辑框中被选中的文字加下划线。 怎样分析tcp报文(我很急呀) *.idl文件如何使用? 各位大侠,怎么写一个php在线打分的程序阿? 我测试一下 感兴趣的去试试! IE外壳扩展的程序 Delphi 6.0的一个Bug??? 我怎么把字符串放进缓冲里?急急急!!! 恭喜 zhipop 喜得漂亮的可爱的千金 几个小问题想请教大家 如何将浏览器的地址栏里的IE图标换成自己的图标? r俺明天想去给我的宝马生生级,不算显示器,3000元左右,请各位大侠们赐教该什么配置 2000下写的程序,NT 4.0workstation上为什么不能跑? 启用新主页下载数据窗口编辑器 请教Qbasic中的几个问题..... 用BCB如何向Oracle8.0.5中更新BLOB 用ODBC编程时发现错误:nvarchar 类型无数据类型同其绑定,用CString 出错!如何解决? 救命,救命!!!!!!!!!!!! 【 这两天好像来了很多新人嘛!来报个到吧! 】 请教:如将一个 FormView 的 ScrollBar 去掉 在asp中怎么定义可变长的数组? 关于文本框的问题(你能回答吗?) X档案第三季有一集叫《网络情人》,讲的什么内容? 如何登陆interbase de local server? 确定星座是按农历,还是公历????? 请问哪里能买到苹果7300主板,大概多少钱? vc高手快来帮我 我可以通过style定义普通字体的大小,却不能定义表格中字体的大小 BDE + SQL AnyWhere6.0问题!求救!SOS! 最新消息:泡泡是个PLMM 如何实现关机前所有文挡的自动保存 兄弟要进行一项庞大的工程 . 输全国县以上地区的编码. 我用powerbulider设计了一个报表,如何能在vc程序中使用这个报表 如何用回车键代替tab键在sle之间移动焦点 讨论:关于翻译英文文章的版权问题????????? 【 本人收到N多从+888发来的短信息,内容是:此信息无法显示!Faint! 】 如何将程序做成30天的试用版本并禁止拷贝? 请问select top 10 * from table order by time , time字段有很多相同记录 如何能得到UNIX下的C语言编程软件及书籍? 请问:一千瓦等于多少马力 500克等于多少个100毫克 现有0.1摩尔每升硫酸钠额溶液300毫升,0.1摩尔每升的硫酸镁溶液200毫升和0.1摩尔每升的硫酸铝溶液100毫升,这三种溶液中,硫酸根离子的浓度之比是()A.1:1:1 B 3:2:2 C.3;2:3 D 1:1:3 空调多少匹是怎么换算出来的,空调匹数跟瓦数怎么换算,1千瓦等于多少马力? 2000毫升水有多少千克此问题对我很严重.还请各位尽量回答我. 1摩尔每升的碳酸钠100毫升,加入50毫升2摩尔每升的硫酸钠,将所得溶液稀释到200毫升我算的答案是2摩尔每升,老师说不对, 一马力等于多少瓦? 50毫升B摩尔每升的ALCL3溶液加入50毫升A摩尔每升氢氧化钠溶液当A小于等于3b时生成氢氧化铝的沉淀物质的量 配置500摩尔每毫升的Na2SO4溶液,需要硫酸钠的质量是多少克?配置500mL0.2摩尔每毫升的Na2SO4溶液,需要硫酸钠的质量是多少克? 功率和马力是怎么换算? 向20毫升氯化铝溶液中滴入2摩尔每升氢氧化钠溶液时,沉淀质量与所滴加氢氧化钠溶液体积(ml)铝离子完全沉淀时沉淀质量为0.78g,假设溶液中有氢氧化铝0.39克,则此时用去氢氧化钠溶液的体积 吨,升、立方米、立方分米、立方厘米、克、毫克,换算如题 功率和马力怎么换算现在汽车说的是功率,和原来的马力怎么换算? 向20毫升氯化铝溶液中滴入2摩尔每升的氢氧化钠溶液时,得到氢氧化铝沉淀的质量与所滴加氢氧化钠溶液体积关系如图所示.(1)图中A点表示的意义是____________.B点表示的意义是____________.(2)上 每立方厘米0.16毫克换算成千克每立方米 1千瓦等于多少马力 如何配置0.5摩尔每升的无水碳酸钠溶液500毫升 例如1A= mA = uA1V= kV请各位给我初二全部物理的单位换算,进率 136匹马力等于多少千瓦也就是新B200的功率,随便说一下,这车真的买来值吗?是不是比以前的奔驰要缩水一些? 实验室用NaCO3·10H2O 晶体配制500毫升0.1摩尔每毫升的碳酸钠溶液 应称取NaCO3·10H2O 多少克 物理上单位换算一千米每时等于多少米每秒? 汽油机1千瓦等于多少马力汽油机和柴油机一样吗 取500毫升碳酸钠溶液与300毫升浓度为一摩尔每升的盐酸反应,在不断搅拌下将碳酸钠溶液逐滴滴入盐酸中与将盐酸滴入碳酸钠溶液中,所产生气体的物质的量之比为3:2.则碳酸钠的浓度是多少? 物理单位换算关系 1匹马力等于多少千瓦 配制500毫升2摩尔每升的硫酸溶液需浓度为百分之九十八,其密度为1.84克每立方米的浓硫酸呵水各多少 一吨每立方米等于多少千克每立方分米?一千克每立方分米等于多少克每立方厘米?千克每立方米等于多少千克每立方分米?. 1马力等于多少千瓦 如何配制溶液500毫升的碳酸钠溶液 求数学单位换算 1L=?立方cm 1平方米=?平方厘米 1平方分米=?平方厘米求数学单位换算 1L=?立方cm1平方米=?平方厘米1平方分米=?平方厘米 请问1千瓦等于多少马力 用98%浓硫酸配制500毫升1.0摩尔每升的硫酸溶液? 尺与平方米的单位换算是什么样的? 1马力等于多少千瓦时 用98%的浓硫酸(密度为1.84克每毫升)配制1摩尔每升的稀硫酸100ml,需要硫酸多少? 网络10兆等于多少m 1马力等于多少功率 需要0.5摩尔每升的硫酸500毫升若使用溶质的酸进行配置,问题是:1.该浓硫酸的物质的量浓度 2.需要浓硫酸的 兆的单位换算一兆等于多少? 一升等于多少公斤谢谢了,大神帮忙啊 在20毫升0.1摩尔每升醋酸溶液中逐滴加入20毫升0.1摩尔每升的氨水溶液,溶液导电能力逐渐增强.为什么? 二十兆流量等于多少M? 舍得酒广告的含义 将20毫升0.1摩尔每升的醋酸钠与10毫升0.1摩尔每升的盐酸混合溶液显酸性,溶液中个离子浓度的比较 单位换算20分之13吨等于多少千克 舍得酒经典台词 下列溶液中含氯离子物质的量浓度最大的是( ) A.30毫升0.2摩尔每升KCI溶液 B.20毫升0.1摩尔每升氯化钙溶液,C.10毫升0.1摩尔每升氯化铝溶液 D.100毫升0.25摩尔每升氯化钠溶液 角度单位换算的公式要详细点的1度等于多少秒多少分 50度41分20秒等于多少度写出来详细 舍得的含义?如何舍得,如何取舍 把2.5毫升0.1摩尔每升的硫化钠溶液与1毫升0.1摩尔每升的亚硫酸钠溶液和7毫升0.1摩尔每升的盐酸混合后,充分反应后生成的产物中硫元素的存在形式为()1.S2.S,H2S3.S,SO24.S,H2S,SO2可答案是3阿 单位换算公式都有哪些? 怎样辨别舍得酒的真假想买一瓶给老爸,还怕买到假酒,请懂行的朋友帮帮忙!积分不多, 24毫升浓度为0.05摩尔每升的NA2SO3溶液恰好与20毫升浓度为0.02摩尔每升的K2CR207溶液完全反应,已知NA2SO3被K2CR207氧化为NA2SO4,则元素CR在还原产物中的化合价是多少设CR在还原产物中的化合价为X,0.0 单位换算的公式!(1)70微米=()米=()毫米(2)0.05分米的二次方=()米的二次方=()厘米的二次方(3)200厘米的三次方=()米的三次方=()升(4)10的-10次方米=()纳米=()微米(5)3 CC与毫升是怎么换算的? 250毫升等于多少毫克 配制0.2摩尔每升硫酸钠溶液50毫升,需要称取固体硫酸钠的质量是多少 毫升怎样换算成斤,公式是怎样的.我说的是酒 请问250毫克等于250毫升吗? 将100毫升0.3摩尔每升的硫酸钠溶液和50毫升0.2摩尔每升的硫酸铝溶液混合后,所得溶液中硫酸离子的物质的量
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn