如何让VBA用户窗体文本框始终保持光标聚焦

问题分析 #

你当前使用AfterUpdate事件处理扫码后的保存与光标定位，但该事件会因多种触发场景（比如手动输入后点击其他控件）导致SetFocus失效，无法稳定锁定光标。由于扫码枪通常会在输入条码后自动发送回车键，改用捕获回车键的方式会更可靠。

修正后的代码 #

替换原有的TextBox2_AfterUpdate事件，改用TextBox2_KeyDown事件：

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    ' 检测是否按下回车键（适配扫码枪默认结束符）
    If KeyCode = vbKeyReturn Then
        ' 将条码写入A列最后一行的下一行
        Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Value = TextBox2.Value
        ' 清空文本框
        TextBox2.Value = ""
        ' 屏蔽回车键的默认行为，强制锁定焦点
        KeyCode = 0
        TextBox2.SetFocus
    End If
End Sub

额外优化建议 #

• 若扫码枪发送的结束符不是回车键，可在扫码枪设置中调整为以回车作为结束符，这是绝大多数扫码枪的通用配置。
• 若需兼容手动输入场景，可添加TextBox2_Exit事件阻止意外失焦：

  Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
      ' 仅在窗体未关闭时，阻止焦点离开文本框
      If Me.Visible Then
          Cancel = True
          TextBox2.SetFocus
      End If
  End Sub
  

内容的提问来源于stack exchange，提问作者rajesh madde