1

私がやろうとしているのは、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

どんな助けでも本当に感謝しています。

4

1 に答える 1

0

RichTextBox1.AppendText(scanData + " " + currentTime + vbLf)TextBox1 がクリアされたときに発生しないようにするには、このような if ステートメントを使用する必要があります。

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

文法上の間違いはご容赦ください。

于 2013-04-22T17:54:23.033 に答える