全局热键类的多热键示例工程(VB6.0代码)

这个类很早就发布了,当时写了个很简单的单热键示例.

有朋友说最好弄个多热键的示例,于是就整了这个东东出来.



代码可能有些乱,我来说说基本的使用思路:

一,设置一个本进程句柄(frmHwnd属性)
二,增加热键(AddHotKey方法)
这个方法返回的是一个标志本组热键组合的索引,在热
键事件到来时可以简化判断.
三,启动捕捉热键循环(StartHotKeys方法)
没有使用子类化,所以用一个死循环来做一个消息泵,不
断地从消息队列里检查是否有热键消息到来.由于是死
循环,所以需要传入一个定时器用于立即返回此方法,使
调用流程能够继续下去.
四,删除热键(DelHotKey方法)
这个方法的作用是删除单个热键.相应的热键组合可以使
用GetHotKeySetting结合HotKeysCount属性来取得.
五,查询热键组合的数量(HotKeysCount属性)
定义了几组就是几,之前没有考虑到这个.
六,查询热键组合的值(GetHotKeySetting方法)
这个方法可以返回指定的组合内具体的各键状态.
七,热键按下后的事件(HotKeyPress事件)
当完成了第1,2,3步后,就可以开始捕捉热键了,这时只要
按下热键,将会触发HotKeyPress事件,事件的参数里既有
热键组合的索引,也有该组组合内各键具体的值,以方便
不同情况下的判断.
其实我觉得具体的键值好象是多余的......反正可以根
据GetHotKeySetting方法取得呀...大家自己取舍吧,反
正放它们在那里应该也不碍什么事,能省一步省一步吧-_-b
八,其它的就自己看吧.....其实这个东西又没多复杂....

原来的那个示例在这里:

../blog2/blogview.asp?logID=202&cateID=2

那里面的类有些错误,已经修正,现在的地址在这里:

点击下载此文件

希望我的这些模块能真的方便到大家.

上一篇: 使用RtlComputeCrc32取文件与字符串CRC32值(VB6代码)
下一篇: 终于又到了广东了.
文章来自: 本站原创