0

我正在为同事构建一个应用程序，允许用户使用手持扫描仪扫描条形码。该应用程序会自动将该条形码附加到 RichTextBox。除了一个问题外，我已经完全正常工作了：

当用户扫描条形码时，它会扫描新行中的每个字符。例子：

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

大概任何驱动程序正在输入输入都是一次一个字符。如果您无法控制该代码，并且条形码中有固定数量的字符，则可以等待该行包含那么多字符，然后添加空格、时间戳和换行符。就像是

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 回答