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

问题描述 投票:0回答: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()
vb.net visual-studio-2010
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之前,我会检查以确保BarCode有效。

© www.soinside.com 2019 - 2024. All rights reserved.