重复使用具有覆盖功能的同一文本框

Question

我有一个小问题，在网上找不到解决方案，我猜我是第一个问这个问题的。所以我请求你的帮助。 :)

我有一个用户窗体，其中有一个文本框1，用作二维码扫描仪的输入框。对于第一次扫描，一切正常，但在第二次、第三次扫描时则不然……是否可以创建代码，当通过 HID 设备（QR 扫描仪）输入数据时，光标应返回到每次扫描后文本框的开头？这是一种循环。输入数据 > 完成后返回开头并覆盖同一个 TextBox1 中之前的数据？

TextBox1中是一段代码，用于对TextBox中输入的文本进行排序，并根据ID将其复制到其他TextBox中。 ID 的长度为 10 个符号 (Pxxxx_xxxx)。

感谢您的帮助， 西蒙

Answer 1

这样的东西有用吗？我真的不明白为什么如果您希望一切都自动化，那么焦点会从文本框中丢失，但这应该可行。出于测试目的，我仅将一些 ID 复制粘贴到 TextBox1 中，我没有 QR 扫描仪。

Option Explicit

Private Sub btnStop_Click()
    Me.Hide
End Sub

Private Sub TextBox1_Change()
    Dim testStr As String, valueStr As String
    If Not Len(Me.TextBox1.value) = 0 Then
        testStr = TextBox1.Text
        Me.TextBox2.value = Left(testStr, 5) 'just manipulating other textboxes for testing
        valueStr = Right(testStr, 5)
        Me.TextBox3.value = valueStr
        Dim lRow As Long
        lRow = ThisWorkbook.Sheets(1).Range("B" & Rows.Count).End(xlUp).Row + 1
        ThisWorkbook.Sheets(1).Range("B" & lRow).value = valueStr
        Me.TextBox1.value = ""
        'in my case this next line isn't necessary
        Me.TextBox1.SetFocus 'use this in case in your code you lose focus of it
    End If
End Sub

希望这有帮助，如果有不清楚的地方请告诉我。