0

ユーザーがハンドヘルド スキャナーを使用してバーコードをスキャンできるようにする同僚向けのアプリを作成しています。アプリはそのバーコードを RichTextBox に自動的に追加します。1つの問題を除いて、完全に機能しています：

ユーザーがバーコードをスキャンすると、新しい行の各文字がスキャンされます。例：

A 1:20 PM
R 1:20 PM
C 1:20 PM
0 1:20 PM
1 1:20 PM

それ以外の

ARC01 1:20 PM

以下のコードで何が欠けているのか誰か教えてもらえますか?

   Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged

    Dim currentTime As String = Format(TimeOfDay, "HH:mm:ss")

    RichTextBox1.AppendText(" " + currentTime + vbLf)

End Sub
4

1 に答える 1

0

おそらく、入力に供給しているドライバーは、一度に1文字ずつ実行しています。そのコードを制御できず、バーコードに静的な数の文字がある場合は、行にその数の文字が含まれるのを待ってから、スペース、タイムスタンプ、および改行を追加できます。何かのようなもの

Dim lastLine As String
lastLine = RichTextBox1.Lines.Last

If lastLine.Length = 5 Then
    RichTextBox1.AppendText(" " + currentTime + vbLf)
End If
于 2013-04-22T21:57:19.567 に答える