Vb.net 当从TextBox1_TextChanged字段向RichTextBox添加数据时，我的部分代码会自动添加一个冗余日期。逻辑有问题吗

我试图做的是自动将扫描到TextBox1字段的内容添加到RichTextBox1，然后清除TextBox1字段，但是当TextBox1被清除时，

RichTextBox1.AppendText（Scanda+“”+currentTime+vbLf）

会执行操作并添加一个空格+TimeOfDay。因此，RichTextBox1的输出如下：

011546 1:30 PM
 1:30 PM
011879 1:31 PM
 1:31 PM

如何消除新行中插入的冗余辅助时间？以下是我当前的代码：

Public Class Form1

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    Dim scanData As String = TextBox1.Text

    Dim currentTime As String = TimeOfDay

    TextBox1.Text = scanData

    RichTextBox1.AppendText(scanData + " " + currentTime + vbLf)

    TextBox1.Clear()

End Sub

---

非常感谢您的帮助。

您应该使用类似这样的if语句，以避免出现

RichTextBox1。当TextBox1被清除时，会出现AppendText（Scanda+“”+currentTime+vbLf）

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

    Dim currentTime As String = TimeOfDay

    TextBox1.Text = scanData

    If (TextBox1.Text <> "") Then RichTextBox1.AppendText(scanData + " " + currentTime + vbLf)

    TextBox1.Clear()
End Sub

Private Sub TextBox1\u TextChanged（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理TextBox1.TextChanged
将扫描数据调整为字符串=TextBox1.Text
Dim currentTime作为字符串=TimeOfDay
TextBox1.Text=scanda
如果为（TextBox1.Text“”），则为RichTextBox1.AppendText（Scanda+“”+currentTime+vbLf）
TextBox1.Clear（）
端接头

---

请原谅我的语法错误。

我想说的正是if语句。真不敢相信，我竟然连自己的脑袋都不敢想得出那个结论。非常感谢。