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

Question

我想要做的是自动将扫描到 TextBox1 字段的任何内容添加到 RichTextBox1，然后清除 TextBox1 字段，但是当 TextBox1 被清除时，RichTextBox1.AppendText(scanData + " " + 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

非常感谢任何帮助。

Answer 1

您应该使用这样的 if 语句，以避免在RichTextBox1.AppendText(scanData + " " + currentTime + vbLf)清除 TextBox1 时发生这种情况。

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

原谅任何语法错误。