Windows Barcode Scanner

Barcode Scanner Automation

DataSymbol Barcode Scanner Automation allows to handle decoded barcodes or to get other features.

Dim WithEvents BarScanner As BarcodeScannerLib.Reader

Private Sub Command1_Click()
    'Create a new instance of Barcode Scanner object
    Set BarScanner = CreateObject("BarcodeScanner.Reader")
    BarScanner.Visible = True
End Sub

Private Sub BarScanner_BarcodeIn(ByVal barcode As String)
    Text1.Text = barcode
    'MsgBox barcode
End Sub

[VB Script (Internet Explorer)]


<title>BarCode Scanner test page</title>



<object id="BarReader" 

Barcode: <span id="barcode"></span>

<SCRIPT LANGUAGE="vbscript">

    sub BarReader_BarcodeIn(barText)
        Document.getElementById("barcode").innerHTML = barText
        'MsgBox "BarcodeIn"
    End sub

    BarReader.Visible = true




namespace WindowsFormsApplication1
  public partial class Form1 : Form
    BarcodeScannerLib.Reader br;

    public Form1()

    private void button1_Click(object sender, EventArgs e)
      br = new BarcodeScannerLib.Reader();
      br.Visible = true;

      BarcodeScannerLib._IReaderEvents_BarcodeInEventHandler bin = new 
      br.BarcodeIn += bin;

    static void OnBarcodeIn(String Text)
      Console.WriteLine("Barcode: {0}", Text);

Linear: Interleaved 2/5, Industrial 2/5, Code 39, Code 39 Extended, Codabar, Code 11, Code 128, Code 128 Extended, EAN/UCC 128, UPC-E, UPC-A, EAN-8, EAN-13, Code 93, Code 93 Extended, DataBar Omnidirectional (RSS-14), DataBar Truncated (RSS-14 Truncated), DataBar Limited (RSS Limited), DataBar Stacked, DataBar Expanded, DataBar Expanded Stacked.
2D: PDF417 (Compact, Micro), QRCode (Micro), DataMatrix, Aztec Code
Windows 32 & 64, 10(UWP), Phone 8/8.1/10,Windows Mobile, Android, Linux, Raspberry Pi, MacOS, iPhone