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

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

hide()-JQuery API show(speed,callback)-JQuery API show()-JQuery API slideDown(speed,callback)-JQuery API slideToggle(speed,callback)-JQuery API slideUp(speed, callback)-JQuery API toggle()-JQuery API Javascript-JQuery API $.browser-JQuery API $.each(obj, fn)-JQuery API $.extend(target,prop1,propN)-JQuery API $.grep(array,fn,inv)-JQuery API $.map(array, fn)-JQuery API $.merge(first,second)-JQuery API $.trim(str)-JQuery API Ajax-JQuery API $.ajax(properties)-JQuery API $.ajaxSetup(settings)-JQuery API $.ajaxTimeout(time)-JQuery API $.get(url, params, callback)-JQuery API $.getIfModified(url, params, callback)-JQuery API $.getJSON(url, params, callback)-JQuery API $.getScript(url, callback)-JQuery API $.post(url, params, callback)-JQuery API ajaxComplete(callback)-JQuery API ajaxError(callback)-JQuery API ajaxSend(callback)-JQuery API ajaxStart(callback)-JQuery API ajaxStop(callback)-JQuery API ajaxSuccess(callback)-JQuery API load(url, params, callback)-JQuery API 请问哪里可以下载RIP,OSPF的源代码? 为什么在sql explorer里面可以执行的sql语句在delphi里面不可以执行呢 一个servlet调用另一个servlet编译问题 Jbuilder7注册文件哪有下载?谢谢 哪位有网上商场系统结构分析的文档!!(高分) 急用:怎么用控制台命令查看进程,并终止进程? 请问DELPHI编写使用SQL SERVER 2000的管理端用什么连接好点? 喜欢吉他的程序员来谈谈 用InstallShield如何安装COM+组件 帮我看看!先给100,答玩再给100 有谁能告诉我怎么使用索尼DSC-F717相机的“扩展”功能? 哪位有flash mx的汉化包?多谢了 MSSQL打开企业管理器后所有的数据都公开了,有没有办法能设立权限啊 出现了一个错误,搞不定哦help,在线 字符型变量如何转化为整型 为什么滚动条不工作? 请问 sqlserver2000中有可以把数据提出 , 输出到文本文件中的存储过程吗 那位大侠知道:如何返回webservice自身类的一个或多个实例? QuickReport是否可以套打?如何套打? 这段话看得太糊涂,请英语佳的大虾翻译一下 很诚恳的想问一个问题,可能对我的影响比较大。希望可以听听你们的意见!!!! 急急:谁能告诉我,tomcat4.1.18+sqlserver2000连接池如何配置、具体配置测试!我想把分全给他如果能的话 高分,简单问题.关于网格控件(在线等!) 触发器失败,是怎么回事啊?拜托。在线等待。。。 急需测试数据 关于连接的下载问题 在属性页中,各子页中类成员函数如何相互调用? 急!!!重载决策失败,原因是没有可访问的“Fill”可以用这些参数调用,怎么解决? 如何获取用户本地机的分辨率? 菜鸟的问题!!!在线等待! 请问一下印度做软件的报价~~~?? 急急~~ 求求求!!~~ 给满100分!! 关于WinRunner中遇到的难题,请高手帮忙! 请大家帮忙推荐几款linux下比较好用的看jpeg图和看mpeg4比较好用的软件! 请问数据库应用程序如何制作安装程序? 笔记本突然出现很多马赛克,然后死了,大概是什么原因? 各位大虾请进 求:0,1,-1的N长度组合算法 各位问一个比较少见的问题100分相送,急急急!!! 这样的条件判断语句要怎么写?(很简单的) 一款很不错的电子图书制作、资料管理软件 在-卢-<<利用XML实现通用WEB报表打印>>时报:未将对象引用设置到对象实例 DBEdit如何限制输入格式? 简单问题 ★★★狂急!请问怎样取得文件的创建日期!在线等!在线结贴!★★★ 初学xml,很简单的问题,就是不会,各位近来看看!一行代码搞不定… 有没有用于unix下c开发的dbx调试图形界面的工具? 哪位有tar 和 gzip 命令参数的详细中文介绍 jsp网站测试,欢迎大家测试 提问 请问有没有直接可以HTML(XHTML、SHTML)生成XML-XSL!!的工具 进程外组件的关于注册的问题? 玻璃除霜的问题.好评! certificate的英文意思 sport中的"p"读"p"还是"b"?在英语单词中s的后面一个辅音例如:f t d p k 等读什么音? 这个玻璃开关保险有几个. 会计题.生产甲产品领用原材料a材料5000kg,单价10元,b材料2000kg,单价4元.求分录. 聚合物移动电源,哪个好用点?RT,想买款聚合物的移动电源,不是聚合物的不要,质量太差,求荐一款. 饱和溶解度怎么计算?有公式吗?楼下能给具体点的解释一下吗? 可导 连续 微分 有点晕,跪求大神给个好理解的说法.直观一点~不要说那些可导一定连续什么的 方便记忆的话 2.31中2是什么意思?20.04中2是什么意思? certification 和 verification的区别如题 雅思中,qualification资格证 certificate证书 有什么差别? 力不增大,用10N的力拖动一物体匀速运动,其摩擦力也是10N.现在要速度是原来的2倍,仍然匀速运动,问摩擦力是大于10N,还是小于10N,还是等于10N?老实说是等于10N,可我觉得应该是大于10N啊,不加力 如何去看溶解度图像.如何判断是否达到饱和容液? 光在透明介质中沿直线传播对吗? 哪些品牌的移动电源是用聚合物做的? 数学共有多少种函数?数不清 钢化透明玻璃与普通透明玻璃色彩相同吗我的意思是说如果放两块5平米左右的在一个空间里从视觉上能看出它们的不同色彩么还是它们两块就是一样看不出来呢从视觉要怎么样才能分辩出来 植物体中的一切有机物是不是都是植物直接从无机物合成而来?糖类 氨基酸 磷酸 脂质 核糖体等等这一切有机物,植物体都是自身合成的吗?植物是不是不能从外界摄取现成的有机物,或者说即 数学——函数类在直角坐标系中,抛物线y=-4/9x^2+2/9mx+5/9m+4/3与x轴交与a,b两点,点a在负半轴上,点b在正半轴上,且|OB|=2|OA|,点c是抛物线的顶点.1)求m的值.2)若点p在抛物线的对称轴上,且圆p与x轴及 holmesglen的diploma和certificate有什么区别?哪个好用一点?想在holmesglen念bakery&patisserie 可是发现这个还有diploma和certificate 这两个有什么区别 哪个好用一点?diploma是Diploma of Hospitality (Patisserie) certific 水电离为什么要强调稀溶液时Kw不变浓溶液为什么不适用''' 函数类的数学困难题1.已知奇函数y=f(x)定义域是【-3,3】,当-3≤x≤0时,f(x)=-x²-2x,则0≤X≤3时,函数解析式为( )2.若函数f(x)=loga^x(0<a<1)在区间【a,2a】上的最大值是最小值的3倍,则a的值为 certificate与diploma区别 红外光谱为什么要用 稀溶液! 同桌女,上课干那个怎么办同桌是女的,她狂追exo什么的,说话特肉麻,同学们说她发情期,自习课时写着作业,她居然把手放在自己裤子里摸索,我假装写作业装没看到,她却眼神迷离地看着我,一脸 cacl2使布条退色下列物质,不能使有色布条退色的是A 次氯酸钠 B次氯酸钙 C氯水 D氯化钙求详细过程 中国移动通讯(汉译英) 有比较好用的手机移动电源吗?是哪一种啊? 成立“关爱留守儿童”协会策划书怎么写uqT 移动 汉译英我想知道,移动电话里说的那些您拨叫的用户占时无法接通,还有,您拨叫的用户已关机,您拨叫的用户不在服务区,等等,要和移动一摸一样的,.. we've got the 急求一份关于关爱孤残儿童活动的策划书 汉译英:“一张地图,不论多少详尽,比例多少精确,它永远不能带你在地面上移动半步”我这跛脚的英语译得很生硬, 溶进和融进的区别 一个人从懂事以来只活了多少年?比如一个人活八十岁.从20岁开始懂事.他到底活了多少年20以前不算.你们猜哈 『慢慢地你会明白』是什么意思啊!?拜托各位了 3Q 下列各组中的离子能大量共存于同一溶液中的是A.Fe3+ Na+ F- I- B.Fe3+ K+ NO3- SCN-C,Fe2+ K+ Cl- I-D,K+ Fe2+ MnO4- SO4 2- 消防系统气压罐容积问题消防系统中的稳高压系统给水(稳压泵和气压罐)中气压罐的容易怎么确定呀 可不可以用气压罐代替高位水箱呢 ZARA的包为什么沾水就变色了?3Q沾水变色之后该怎么处理?会不会颜色就回不来了啊? 公式编辑器中如何使大括号内的方程都左对齐? Fe3O4为什么会有磁性 化学必修一第一章复习题 第一题为 已知XmolH2O中含有y个H2O水分子,则阿弗加德罗常数为----这是一份试题 求第一题为已知XmolH2O中含有y个H2O水分子,则阿弗加德罗常数为---- 的必修一化学第一章 英文里的certificate 和 diploma有什么区别?这两者的意思分别是什么? 磁化率是?及磁化率用途给出公式,现在自学中, 人平均年龄活多少年啊拜托各位了 3Q? 以下几句可用于人生哪一阶段 老骥伏枥,志在千里;烈士暮年,壮心不已.-----汉 曹操《龟虽寿》 夕阳无限以下几句可用于人生哪一阶段 老骥伏枥,志在千里;烈士暮年,壮心不已.-----汉 曹操《 原肠胚是不是属于早期胚胎? fff团只烧异性恋咩? 地埋式污水处理设备埋设深度一般为多少 为什么单刀双掷开关接3个接线柱 即热式电热水器,离子加热是什么原理?比紫铜加热管哪个好?淘宝上所谓的史密斯紫铜管pk许多离子加热新技术不知哪个好?有个叫什么--双核-镍金甲盾离子加热管,号称最新技术,能效转化率近10 certificate是否是可数名词 certificate 单刀双掷开关属于串联还是并联 老骥伏枥 志在千里 烈士暮年 壮心不已表达了作者怎样的情怀? fumigation certificate是什么意思 质量m、电量q带正电荷的小物块,从半径为R的1/4光滑圆槽顶点由静止下滑,整个装置处于电场强度E,磁感强度为B的区域内(图12-46).则当小物块滑到底端时对轨道的压力为____. 玻璃小说 roseonly certificate是什么意思 S后面的p都要读成b吗?帮我解释一下该怎么判断 养老金——全球性难题如何破解尼日利亚海盗绑架两美船员 西非海域险意大利议员:美国监控如拖网捕鱼 一网摩洛哥少年网上称要杀死奥巴马 被判入美籍华人歌唱家吴沁将放歌国家大剧院养老金——全球性难题如何破解欧洲大部分国家27日结束夏时制泰国首都曼谷的房产经意大利议员:美国监控如拖网捕鱼 一网欧洲大部分国家27日结束夏时制多国外交官出席水文化论坛 看好中国瓶世界主要城市10月26日天气预报朝鲜通过板门店送还6名韩国人外交部就俄罗斯、印度、蒙古三国总理访欧盟为防美将设新“反监控法” 美企或民营医院在中国起步 公立国有民营趋势印东部洪灾致20万人受灾 逾5万人被欧盟主席谈隐私 被称暗示美国搞监视是世界旅游业看好中国客源市场 各国力推24架美军“鱼鹰”运输机落户冲绳 半摩洛哥少年网上称要杀死奥巴马 被判入从一个市民举报挖出女毒枭本土原创广播剧《让爱转动》开播玫瑰西路随意停靠 私家车频变花脸柘荣积案“清仓”行动化解近20年积案18条“民生路”有望上半年全面动工美空军在太平洋救助中国渔民“小农民”如何 对接“大市场”?电梯维修员竟盗电梯坠重铁块赫鲁晓夫与毛泽东协定携手搞共产主义:代表每年至少促成解决一件民生问题今起违法临停最高罚款500元全省农村土地确权培训班在阳山开班南汉宫殿千年遗址“重见天日”“任你点”旅游网不敢点?松山湖高新区一季度GDP逾48亿借势广清教育对口帮扶东风 “广州所能“出柜”的同志妈妈美食江湖东莞40年办事大厅建到群众家门口番禺1600村官脱产学治村泛亚铁路东线昆玉铁路重点控制性工程长
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘