Excel VBA – 在userform上每隔一次触发alt keydown事件

2023年1月24日 388次阅读

第一次发布,相当新的VBA和编码.

我有一个Excel 2010用户表单,其中包含一个用于打开电子表格的按钮.当按下修改键时,我有按钮创建一个新文件.

我写了以下代码：

Private Sub CommandButton4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Debug.Print "X" & Shift
If Shift = 4 Then
    CommandButton4.Caption = "New File"
    NewFile = True
    CommandButton4.ControlTipText = "New File"
End If
End Sub

Private Sub CommandButton4_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Debug.Print "Y"
CommandButton4.Caption = "Open File"
NewFile = False
CommandButton4.ControlTipText = "Open File"
End Sub

对于每个键EXCEPT Alt,KeyDown和KeyUp事件都会触发.例如,按Shift键,我得到一个调试输出：
X1
ÿ
X1
ÿ

但是,按Alt我得到：
X4
ÿ
ÿ
X4
ÿ
ÿ

我表单中的其他所有内容都能正常工作,但我不知道为什么每个其他Alt KeyDown都没有注册.没有KeyDown怎么会有KeyUp？

我已经搜索了高低不同的答案,错误报告或修复,但找不到.有任何想法吗？

最佳答案 您可以使用API​​调用轻松解决您的挑战,以检测ALT键是否已关闭.

将其插入新模块

Public Declare Function GetKeyState Lib "user32" (ByVal key As Long) As Integer

试试这个：

Private Sub CommandButton1_Click()
    If GetKeyState(KeyCodeConstants.vbKeyMenu) And &H8000 Then
        MsgBox "Yes"
    Else
        MsgBox "no"
    End If
End Sub

vbKeyMenu是ALT键. And& H8000只需要查看’live’keystate(返回值有另一个打开和关闭的位,见here)

编辑：
您看到的现象如下：
按ALT并查看X4 Y后,按向下键.
您将看到弹出用户窗体的系统菜单. alt键遵循它的用途并将焦点移动到系统菜单并返回到下一次按下的按钮.如果Button具有焦点,则userform显然首先处理按键,并在按钮接收到keydown之前将焦点移动到系统菜单.

点赞