-1

我尝试谷歌寻找答案，但没有找到我要找的东西。

我创建了一个非常简单的应用程序，让用户可以使用条形码扫描仪将条形码扫描成文本文件。一切正常，我只想简化一点。

最初，我有一个 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()
4

1 回答 1

0

首先，我将确保用户无法通过禁用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 之前，我会检查以确保条形码有效。

于 2013-04-19T17:30:18.303 回答