VB中利用ccrpHotKey控件设置热键

      简介：ccrphotkey是一个第三方控件，该控件可以轻松实现热键功能
　　使用示例
　　您一定对“Ctrl＋Alt＋Z”很熟悉吧？没错，它是QQ里打开消息对话框的默认热键，通过这组热键，我们可以很迅速的打开消息对话框查看，大大加快我们操作的速度。同时我们也知道，在QQ的系统设置中可以对热键进行设置（如图1），当我们按下任何热键组合时，文本框都会实时显示热键组合，让用户明白当前按下的热键是什么。

图1

　　热键可以大大加快使用者的操作速度，对于开发者来说，在自己的程序中使用热键同样会使操作更简便、使得程序更加人性化。那么你是否也想实现像QQ中那样的可以让用户自由设置的热键编辑框呢？下面我们就通过使用示例，介绍一个很实用的控件ccrpHotKey，它可以帮助你轻松实现强大的热键功能。
　　ccrpHotKey控件的外观以及许多属性都跟我们熟悉的文本框的属性相类似，因此我们可以很轻松的对其进行设置。
　　第一步：首先启动Visual Basic 6.0，新建一个窗口。
　　第二步：加载ccrpHotKey控件，设置其属性。
　　①在控件工具栏中单击右键，选择“部件”，在弹出的窗口中点击“浏览”，找到ccrpHotKey控件，载入它；把它添加到Form1窗体中适当位置即可。
　　②修改ccrpHotKey控件属性。选中ccrpHotKey控件后，在属性设置区域可以对其进行设置，其中的按键组合设置最为重要（如图2），你可以根据需要设置允许或者禁止某些组合，如要禁止“Ctrl＋Alt”的组合，就将AllowCtrlAlt属性改为False即可，依此类推。当然，我们也可以在程序运行中动态地改变这些属性。

图2

　　第三步：加载其他控件，完成界面的设置。

　　①在窗体中添加用于设置热键和退出的2个CommandButton控件，名称分别为cmdSetHotKey和cmdExit，caption属性为“设置热键”和“退出”。

　　②添加一个frame控件，caption为“热键信息”；在其中添加两个Label标签，名称为lblKeyCode和lblShift，用来显示按下热键的KeyCode等信息。

　　完成后的界面如图3所示例。下面就开始代码的编写。

图3

　　第四步：编写代码，实现具体的功能。

　　①在通用区域定义要使用的变量，代码如下：

Private m_KeyCode As Integer 　　Private m_Shift As Integer

　　其中m_Shift用来存放热键的组合，m_KeyCode用来存放热键中具体字母或者数字等的KeyCode值。

　　②申明程序中要使用的过程，代码如下

Private Sub DisplayKeyCode() 　　　lblKeyCode.Caption = "KeyCode: " & Str$(ccrpHotKey1.KeyCode) 　　　lblShift.Caption = "Shift: " & Str$(ccrpHotKey1.Shift) 　　End Sub

　　这段代码用于设置两个Lable标签的Caption，当ccrpHotKey1的KeyDown事件发生时候触发这个过程，使两个Label标签显示当前热键的KeyCode值。

　　③编写ccrpHotKey控件的代码，分别在ccrpHotKey控件得到焦点、按下按键和失去焦点时调用DisplayKeyCode过程：

Private Sub ccrpHotKey1_GotFocus() 　　　DisplayKeyCode 　　End Sub 　　Private Sub ccrpHotKey1_KeyDown(KeyCode As Integer, Shift As Integer) 　　　DisplayKeyCode 　　End Sub 　　Private Sub ccrpHotKey1_LostFocus() 　　　DisplayKeyCode 　　End Sub

　　为什么要在得到焦点和失去焦点的事件中也调用过程呢？这样是为了确保Label标签显示的热键信息准确，和ccrpHotKey保持同步。

　　④编写保存热键的代码：

Private Sub cmdSetHotKey_Click() 　　　m_KeyCode = ccrpHotKey1.KeyCode 　　　m_Shift = ccrpHotKey1.Shift 　　End Sub

　　将设置好的热键保存在两个变量中，以供调用。

　　⑤加入窗体的KeyDown事件，以测试效果。

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 　　　If KeyCode = m_KeyCode And Shift = m_Shift Then 　　　　MsgBox "按下了热键: KeyCode = " & Str(KeyCode) & "; Shift = " & Str(Shift) 　　　End If 　　End Sub

　　若按下的键与设置的热键一致，则弹出对话框显示热键相关信息。

　　到这里，这个简单的演示程序就完成了，按下F5运行程序，点击ccrpHotKey控件，按下任意热键组合，ccrpHotKey控件就会实时地显示你当前按下的热键，并且右边的Label会显示热键信息(如图4)。

图4

　　选中一个热键后，点击“保存按钮”，再按下刚保存的热键，程序就会弹出对话框（如图5），演示成功！

图5

　　通过这个控件，我们可以实现让用户自己设定热键，并且实时显示热键的功能，使得程序更加人性化。我们还可以通过API函数将获得的ccrpHotKey1.KeyCode和ccrpHotKey1.shift值保存为系统热键，这样即使程序没有获得焦点，热键仍然可以使用。开动你的脑筋，相信ccrpHotKey控件可以帮你打造出更完美的热键功能！