通过 Enter 键触发事件

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 时，都应该有一个消息框显示成功弹出。但这并没有发生。

我已经验证 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 键时，我的立即窗格会按预期显示“在此处制作”。