Vb.net 如何在Visual Basic中自动附加到RichTextBox

我试着用谷歌搜索答案，但没有找到我想要的

我创建了一个非常简单的应用程序，允许用户使用条形码扫描仪将条形码扫描到文本文件中。一切都很好，我只想把它简化一点

最初，我有一个textbox1.text字段，其中显示扫描的条形码，然后用户必须单击我放置在textbox字段旁边的“添加”按钮（Button1.click），将条形码序列附加到下面的RichTextBox中。用户发现每次扫描单个条形码时都必须单击“添加”按钮，这很无聊

我的问题

有没有办法让textbox1.text中的文本在扫描条形码后自动附加到RichTextBox？我不想再点击“添加”按钮了

这是我的当前代码（按钮1的代码。单击按钮）：

---

首先，我将通过禁用

TextBox

控件（

TextBox1.Enabled=False

）确保用户不能自己输入文本，然后将代码添加到

TextChanged

事件：

Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
    Dim scanData As String = TextBox1.Text

    RichTextBox1.AppendText(scanData + " " + Format(TimeOfDay, "HH:mm:ss") + vbNewLine)

    TextBox1.Clear()
    TextBox1.Focus()
End Sub

---

在附加到RTB之前，我会检查条形码是否有效。

这很好，但现在它添加了一个双时间戳。因此，我现在看到的不是连续的下午2:30，而是“连续的下午2:30，下午2:30”。知道为什么吗？我当前的代码是（TextBox1_TextChanged下的所有内容）：“Dim Scanda As String=TextBox1.Text Dim currentTime As String=TimeOfDay RichTextBox1.AppendText（Scanda+”“+currentTime+vbLf）TextBox1.Focus（）TextBox1.Clear（）”变量currentTime在哪里？

Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
    Dim scanData As String = TextBox1.Text

    RichTextBox1.AppendText(scanData + " " + Format(TimeOfDay, "HH:mm:ss") + vbNewLine)

    TextBox1.Clear()
    TextBox1.Focus()
End Sub