热键控件（可以窗体级，也可以系统级）

这是是我的控件处女作品，可以像金山词霸那样自定义热键，热键可以是窗体级别的，也可以是系统级别的，样式也可以调整。

以下为示例代码：

Private Sub Command1_Click()
'仅为了使sbtdiskey失去焦点
MsgBox "该按钮仅为了使sbtkey失去焦点，否则窗体级热键就没机会响应了"
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'判断窗体级热键是否按下并执行操作 当然也可以注册设置n多窗体热键  注意需将form的KeyPreview设置为true
If KeyCode = SbtDisKey1.KeyCodeValue And Shift = SbtDisKey1.KeyShiftValue Then
MsgBox "您按的是窗体级别的热键"
ElseIf KeyCode = SbtDisKey2.KeyCodeValue And Shift = SbtDisKey2.KeyShiftValue Then
MsgBox "您按的是窗体级别的热键2"
End If
End Sub

Private Sub Form_Load()
'注册系统热键 可以最多注册50个，id由1-50
SbtKey1.SetKey 1, "ctrl", 98 'Ctrl+数字键2
SbtKey1.SetKey 2, "Ctrl", 99 'Ctrl+数字键3
SbtKey1.SetKey 3, "Ctrl", 100 'Ctrl+数字键4
SbtDisKey2.ReadKey "ctrl", 101 '给SbtDisKey2赋值 Ctrl+数字键5
End Sub

Private Sub Form_Unload(Cancel As Integer)
'一定在退出窗体时删除系统热键，不然您的程序会意外关闭, 另外如果要
'更改一个id的系统热键，需先删除已经注册的该id的键，然后重新注册系统热键
SbtKey1.DelKey 1
SbtKey1.DelKey 2
SbtKey1.DelKey 3
End Sub

Private Sub SbtKey1_HotKeyPressed(ByVal KeyId As Integer)
'判断并响应所按系统热键
Select Case KeyId
Case 1
Me.Caption = "系统热键1"
Case 2
Me.Caption = "系统热键2"
Case 3
Me.Caption = "系统热键3"
End Select
End Sub

本控件为2个件一个为可视的自定义，用于接受键盘输入，输出键值，也可以预先读取键值（你总不至于让你的程序使用者每次都自定义一次热键吧） 另外一个不可见控件主要用于注册系统热键，响应系统热键的动作。

有需要的话找我哦！

我不收费的！^_^