私がやろうとしているのは、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
どんな助けでも本当に感謝しています。