关于自建快捷键[求助]

zx

我想用shift+b+m打开部门窗体，请问怎么实现？

李寻欢

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

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

jicheng

在autokeys设好快捷键后，打开窗体是用openform,

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

还有

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

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

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