Question

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

我在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键时，我的立即窗格显示＆＃34;在此处制作＆＃34;如预期的那样。

Answer 2

如何使用它：

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then MsgBox "successful"
End Sub

从输入键触发事件

2 个答案: