Question

我尝试了Google的答案，但没找到我要找的东西。

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

最初，我有一个textbox1.text字段，其中会出现扫描的条形码，然后用户必须单击“添加”按钮（Button1.Click），我放置在文本框字段旁边，将条形码序列附加到RichTextBox中就在下面。用户发现每次扫描单个条形码时都必须单击“添加”按钮，这很麻烦。

我的问题

有没有一种方法可以让textbox1.text中的文字在扫描条形码后自动附加到RichTextBox？我想省去必须点击“添加”按钮。

这是我当前的代码（Button1.Click按钮的代码）：

Dim scanData As String = TextBox1.Text

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

TextBox1.Clear()
TextBox1.Focus()

Answer 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之前，我会检查以确保BarCode有效。

如何自动附加到Visual Basic中的RichTextBox

1 个答案: