VB.NET: Read Barcode on Document & Images

• Recognize, decode linear 1D barcode symbologies in an image
• Read QR Code, Data Matrix, PDF-417
• Returns the string and binary values for each detected barcode
• Recognizes barcode types of detected barcode
• Return barcodes with 0, 90, 180, 270 degrees rotation
• Return checksum, supplement data, and functions values

Requirements

• Windows OS: Windows 7, Windows Vista, and Windows XP, etc
• Windows Server 2003, Windows Server 2008
• .NET Framework 2.0, 3.0, 4.0
• Microsoft Visual Studio 2005, 2008, 2010
• Yiigo.Image for .NET setup
• Yiigo .NET Barcode Plugin

Start to Annotate

• Start your Microsoft Visual Studio;
• Choose "Project" in "File-New" from the menu;
• In "New Project" dialog box, choose "Visual Basic Projects";
• Choose "Windows Application" in the "Templates" List and name it "YiigoImagingBarcodeReadVBNET";
• In the "Solution Explorer" window from the context menu, right-click on the "References" folder, and select "Add Reference...";
• In the "Add Reference" dialog box, select the ".NET" tab and browse to Yiigo.Imaging.Net.dll library and Yiigo.Imaging.Net.Barcode.Read.dll ;
• Add it to your VB.NET applications;
• Import Yiigo .NET Image Namespace & copy those following codes:

Imports System.IO
Imports System.Drawing.Printing 
Imports Yiigo.Imaging
Imports Yiigo.Imaging.Processing
Imports Yiigo.Imaging.BarcodeRead

// Read a barcode
Dim BarcodeImage As YiigoImage = New YiigoImage("barcodes.tif")
Using Barcode As BarCodeRead = New BarCodeRead(BarcodeImage)

Dim options As ReadOpts = New ReadOpts()
options.Direction = Directions.LeftToRight
options.Symbology = Symbologies.Code128

Dim bars As Barcode[] = Barcode.ReadBars(options)
For (i As Integer = 0; i < bars.Length; i++)
System.Console.WriteLine(bars(i).ToString())
End Using

// Return check digit

ReadOpts opts = new ReadOpts()
opts.EnforceChecksum = false

// Read barcode properties
Dim BarcodeImage As YiigoImage = New YiigoImage("barcodes.tif")
Using Barcode As BarCodeRead = New BarCodeRead(BarcodeImage)

Dim options As ReadOpts = New ReadOpts()
options.Direction = Directions.LeftToRight
options.Symbology = Symbologies.Code128
Dim bars As Barcode[] = Barcode.ReadBars(options)
If bars.Length = 0 Then

options.Direction = Directions.RightToLeft
bars = Barcode.ReadBars(options)
End If
End Using