vba - 按下回车键后继续关注文本框

Question

在 VBA 表单中按 Enter 后，如何将焦点保持在文本框中？

此代码将文本添加到列表框，我想将焦点保持在文本框上以准备接收另一个项目。

当我单击“添加”按钮时，它会将文本添加到列表框并将焦点返回到文本框，但是当我按下 Enter 键时它不会，即使它使用相同的代码也是如此。有什么建议吗？

这是我的文本框代码:

Private Sub TxtOtherAsset_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

    If KeyCode = 13 Then
        CmdAddOtherAsset_Click
    End If

End Sub

这是我的按钮的代码:

Private Sub CmdAddOtherAsset_Click()

    If TxtOtherAsset.Text <> "" Then
        ListAddedAssets.AddItem TxtOtherAsset.Text
        TxtOtherAsset.Text = ""
    End If

    TxtOtherAsset.SetFocus

End Sub

我尝试了多种方法，但无法将焦点返回到文本框。按回车键后，焦点转到 TabIndex 中的下一个。

Answer 1

在我的脑海中:尝试将 KeyCode 设置为 0。另外，使用 KeyCodeConstants 类(来自 Core 库)来确定 Enter 键的值。

像这样:

If KeyCode = KeyCodeConstants.vbKeyReturn Then
    CmdAddOtherAsset_Click
    KeyCode = 0
End If

删除您试图将焦点设置在另一个子 ( TxtOtherAsset.SetFocus ) 上的行。

希望对你有效。我没有测试它。