Free Trial
Web API version
Licensing
Request A Quote
HAVE QUESTIONS OR NEED HELP? SUBMIT THE SUPPORT REQUEST FORM or write email to SUPPORT@BYTESCOUT.COM
Decode Bookland | VB.NET
Module1.vb:
VB
Imports System.IO Imports Bytescout.BarCodeReader Module Module1 Sub Main() Const imageFile As String = "Bookland.png" Console.WriteLine("Reading barcode(s) from image {0}", Path.GetFullPath(imageFile)) Dim reader As New Reader() reader.RegistrationName = "demo" reader.RegistrationKey = "demo" ' Set barcode type to find reader.BarcodeTypesToFind.EAN13 = True ' Bookland is the same as EAN-13 barcode ' ----------------------------------------------------------------------- ' NOTE: We can read barcodes from specific page to increase performance . ' For sample please refer to "Decoding barcodes from PDF by pages" program. ' ----------------------------------------------------------------------- ' Read barcodes Dim barcodes As FoundBarcode() = reader.ReadFrom(imageFile) For Each barcode As FoundBarcode In barcodes Console.WriteLine("Found barcode with type '{0}' and value '{1}'", barcode.Type, barcode.Value) Next ' Cleanup reader.Dispose() Console.WriteLine("Press any key to exit..") Console.ReadKey() End Sub End Module