excel - 从回车键触发事件

Question

我正在尝试创建一个用户窗体，它具有一个文本框的单个数据输入。和几个标签。用户将条形码扫描到文本框中。扫描将触发一系列宏，从各种来源收集数据，并通过更新标签输出相关信息。

我在 Excel 工作表中创建了一个类似的过程，并使用 Change by Val 触发器。在这种情况下，因为只有一个单元格被解锁，所以焦点停留在那个单元格上，然后按回车键(或条形码扫描仪的回车键)更新单元格值并触发一系列宏。

在这种情况下，我想做同样的事情，所以我希望我可以使用 AfterUpdate 事件触发器。我遇到的问题是，因为文本框是表单上唯一可操作的东西，所以焦点永远不会离开文本框，因此不会更新。

所以我改变了方向并尝试使用 KeyPress 事件触发器，但它似乎对我不起作用。

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = 13 Then MsgBox "successful"
End Sub

我也用 vbKeyReturn 替换了 13

据我了解，当光标在文本框中处于事件状态时，任何人按 Enter 键时，都应该有一个显示成功弹出的 msgbox。但这并没有发生。

我已经验证 MultipleLine 设置为 false。我尝试将 EnterKeyBehavior 设置为 True 和 False 而不进行更改。

我知道理论上我可以将其中一个标签设置为索引停止并在它具有焦点时将焦点踢回文本框，这基本上算作更新。然后我可以按原计划使用更新触发器。但这似乎是一个非常草率的工作，我知道我应该能够通过击键触发。

Answer 1

切换到 KeyDown对象的事件对我来说很好:

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
        Debug.Print "Made it here"
    End If
End Sub

当我启动表单类型并按 Enter 键时，我的即时 Pane 按预期显示“在此处制作”。