Office中国论坛/Access中国论坛

标题: 关于自建快捷键[求助] [打印本页]

作者: zx 时间: 2003-6-9 22:56
标题: 关于自建快捷键[求助]
我想用shift+b+m打开部门窗体，请问怎么实现？

作者: 李寻欢 时间: 2003-6-10 20:14
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

[此贴子已经被作者于2003-6-10 12:15:56编辑过]

作者: Trynew 时间: 2003-6-10 22:38
也可以建一个AutoKeys 宏组。
就是建一个名字叫“AutoKeys ”的宏，宏名列填：^+B，操作列填：OpenForm并指定打开的窗体。
表示 "Ctrl"+"Shift"+B为块捷键。
你说的shift+b+m是不能用作块捷键de .

作者: jicheng 时间: 2004-11-12 21:20
在autokeys设好快捷键后，打开窗体是用openform,

如要执行模块中或窗体中的代码怎么办？

还有

If Shift = 1 And mSta = True And bSta = True Then

如果是alt 那么shift=什么？一共有哪几个？

[此贴子已经被作者于2004-11-12 13:39:03编辑过]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)