问如何在Visual Basic中自动追加到RichTextBox

EN

我试着在谷歌上寻找答案，但没有找到我想要的。

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

最初，我有一个textbox1.text字段，扫描的条形码将出现在这里，然后用户必须单击我放置在textbox字段旁边的'Add‘按钮(Button1.Click)，将条形码序列附加到下面的RichTextBox中。用户发现每次扫描单个条形码时都要点击“添加”按钮是一件很乏味的事情。

我的问题

有没有办法让TextBox1中的文本在扫描条形码后立即自动附加到RichTextBox中？我想省去点击“添加”按钮的麻烦。

下面是我的当前代码( Button1.Click按钮的代码)：

Dim scanData As String = TextBox1.Text

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

TextBox1.Clear()
TextBox1.Focus()