access锟斤拷锟斤拷锟斤拷--
所属分类: 经验分享 作者: 李寻欢 更新日期:2003-10-17 18:54:45 阅读次数:195

如何自定义三个键的组合键


利用KeyDown事件,我们很轻易地就可以编出让程序响应两个按键的组合键的事件,如:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
if Shift=1 and KeyCode=VbKeyM then
msgbox "您按下了Shift+M键"
end if
end sub

如果要让程序响应三个键的组合键就要麻烦一点,比如现在要用shift+b+m打开"部门"窗体。
首先要声明两个窗体级变量mSta/bSta保存M及B键的按键状态,然后在窗体的Load事件里设置KeyPreview(键预览)为True,以便窗体先于控件接收键盘事件。
在KeyDown事件里判断按键,如果按下M或B,就把mSta或bSta置为True。
在KeyUp事件里判断按键,如果放开M或B,就把mSta或bSta置为false。
做完这些事后就可以在KeyDown事件里判断是否按下了Shift+M+B键了,代玛如下:
Dim mSta As Boolean
Dim bSta As Boolean

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyM Then
mSta = True
End If
If KeyCode = vbKeyb Then
bSta = True
End If
If Shift = 1 And mSta = True And bSta = True Then
DoCmd.OpenForm "部门"
mSta = False
bSta = False
End If
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyM Then
mSta = False
End If
If KeyCode = vbKeyB Then
bSta = False
End If
End Sub



--------------------------------------------------------------------------------
相关文章

没有相关文章


系统优化
控件使用
数据库设计
数据库连接
系统安全
OLE自动化
常见问题
实用代码
属性详解
网络相关
实用API
经验分享
精选教程
字符处理
ADP相关



文章搜索



制作维护:李寻欢     Mail:szmdw@sohu.com

关于本站 -- 网站服务 -- 版权条款 -- 联系方法 -- 网站帮助
access爱恒踹版权所有 Copyright 2003-2005 All Rights Reserved 未经许可不得盗链