たとえば、私はこのフォームを持っています:
ご覧のとおり、バーコードテキストボックスとさらに6つのテキストボックスがあります。必要なのは、テキストボックスからバーコードを解析して残りのフィールドに入力するコードです。括弧、つまり()
、その中の数字は削除する必要があります。
これが私のバーコードの例です
(1)CODE1(3)NAME(4)SURNAME(8)CODE2(10)CODE3(12)CODE4
今のところ私はこのコードを持っています:
Private Sub Barcode_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Barcode.Leave
Dim Duzina As String = Me.Barcode.Text.Length
Dim I As Integer = 0
Dim Slog As String = ""
Dim Rec As String = Me.Barcode.Text
For I = 4 To Duzina
If Rec.Substring(I, 1) = "(" Then
Me.Surname.Text = Slog
Exit For
End If
Slog = Slog + Rec.Substring(I, 0)
Next
End Sub
したがって、バーコードが最初のテキストボックスに読み込まれると、他のすべてのテキストボックスがいっぱいになります。