I want only use barcode library: yes it is correct.
I try your code
Sub btnReadBarcode_Click
Dim bc As Barcode1D
lblInfo.Text = lblInfo.Text & " # " & "Click"
bc.initialize("")
If bc.IsInitialized Then
lblInfo.Text = lblInfo.Text & " # " & "Initialized"
If bc.open Then
lblInfo.Text = lblInfo.Text & " # " & "Opened"
Else
lblInfo.Text = lblInfo.Text & " # " & "NON Opened"
End If
lblBarcode.Text = bc.scan
If bc.close Then
lblInfo.Text = lblInfo.Text & " # " & "Closed"
Else
lblInfo.Text = lblInfo.Text & " # " & "NON Closed"
End If
lblInfo.Text = lblInfo.Text & " # " & "The End"
Else
lblInfo.Text = lblInfo.Text & " # " & "NOT initialized"
End If
End Sub
When I click the button "btnReadBarcode", the label "lblInfo" assume only this value "
# Click # Initialized" but nothing of the section
If bc.open Then
lblInfo.Text = lblInfo.Text & " # " & "Opened"
Else
lblInfo.Text = lblInfo.Text & " # " & "NON Opened"
End If
The reader light does not light up.
I try to click the button for the second time, the app closes without message.