这是是我的控件处女作品,可以像金山词霸那样自定义热键,热键可以是窗体级别的,也可以是系统级别的,样式也可以调整。
以下为示例代码:
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个件一个为可视的自定义,用于接受键盘输入,输出键值,也可以预先读取键值(你总不至于让你的程序使用者每次都自定义一次热键吧) 另外一个不可见控件主要用于注册系统热键,响应系统热键的动作。
有需要的话找我哦!
我不收费的!^_^