Important Update
Writing of the code to gui example for barcode reading with barcode reader sdk in VB.NET can be done by developers of any level using ByteScout Data Extraction Suite. ByteScout Data Extraction Suite helps with gui example for barcode reading with barcode reader sdk in VB.NET. ByteScout Data Extraction Suite is the bundle that includes three SDK tools for data extraction from PDF, scans, images and from spreadsheets: PDF Extractor SDK, Data Extraction SDK, Barcode Reader SDK.
Want to speed up the application development? Then this VB.NET, code samples for VB.NET, developers help to speed up the application development and writing a code when using ByteScout Data Extraction Suite. Just copy and paste this VB.NET sample code to your VB.NET application’s code editor, add a reference to ByteScout Data Extraction Suite (if you haven’t added yet) and you are ready to go! Use of ByteScout Data Extraction Suite in VB.NET is also described in the documentation included along with the product.
Visit our website to get a free trial version of ByteScout Data Extraction Suite. Free trial contains many of source code samples to help you with your VB.NET project.
On-demand (REST Web API) version:
Web API (on-demand version)
On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)
Partial Class Form1
''' <summary>
''' Required designer variable.
''' </summary>
Private components As System.ComponentModel.IContainer = Nothing
''' <summary>
''' Clean up any resources being used.
''' </summary>
''' <param name="disposing">true if managed resources should be disposed; otherwise, false.</param>
Protected Overrides Sub Dispose(disposing As Boolean)
If disposing AndAlso (components IsNot Nothing) Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
#Region "Windows Form Designer generated code"
''' <summary>
''' Required method for Designer support - do not modify
''' the contents of this method with the code editor.
''' </summary>
Private Sub InitializeComponent()
Me.label1 = New System.Windows.Forms.Label()
Me.buttonBrowse = New System.Windows.Forms.Button()
Me.pictureBoxBarcode = New System.Windows.Forms.PictureBox()
Me.textBoxFileName = New System.Windows.Forms.TextBox()
Me.textBoxResults = New System.Windows.Forms.TextBox()
Me.label2 = New System.Windows.Forms.Label()
Me.openFileDialog = New System.Windows.Forms.OpenFileDialog()
Me.checkBoxAll1D = New System.Windows.Forms.CheckBox()
Me.checkBoxAll2D = New System.Windows.Forms.CheckBox()
Me.buttonSearch = New System.Windows.Forms.Button()
Me.panel1 = New System.Windows.Forms.Panel()
DirectCast(Me.pictureBoxBarcode, System.ComponentModel.ISupportInitialize).BeginInit()
Me.panel1.SuspendLayout()
Me.SuspendLayout()
'
' label1
'
Me.label1.AutoSize = True
Me.label1.Location = New System.Drawing.Point(9, 9)
Me.label1.Name = "label1"
Me.label1.Size = New System.Drawing.Size(120, 13)
Me.label1.TabIndex = 0
Me.label1.Text = "Image or PDF file name:"
'
' buttonBrowse
'
Me.buttonBrowse.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.buttonBrowse.Location = New System.Drawing.Point(792, 23)
Me.buttonBrowse.Name = "buttonBrowse"
Me.buttonBrowse.Size = New System.Drawing.Size(78, 23)
Me.buttonBrowse.TabIndex = 0
Me.buttonBrowse.Text = "Browse..."
Me.buttonBrowse.UseVisualStyleBackColor = True
AddHandler Me.buttonBrowse.Click, New System.EventHandler(AddressOf Me.buttonBrowse_Click)
'
' pictureBoxBarcode
'
Me.pictureBoxBarcode.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) Or System.Windows.Forms.AnchorStyles.Left) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.pictureBoxBarcode.Location = New System.Drawing.Point(0, 0)
Me.pictureBoxBarcode.Name = "pictureBoxBarcode"
Me.pictureBoxBarcode.Size = New System.Drawing.Size(138, 113)
Me.pictureBoxBarcode.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
Me.pictureBoxBarcode.TabIndex = 2
Me.pictureBoxBarcode.TabStop = False
'
' textBoxFileName
'
Me.textBoxFileName.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.textBoxFileName.Location = New System.Drawing.Point(12, 25)
Me.textBoxFileName.Name = "textBoxFileName"
Me.textBoxFileName.[ReadOnly] = True
Me.textBoxFileName.Size = New System.Drawing.Size(774, 20)
Me.textBoxFileName.TabIndex = 0
'
' textBoxResults
'
Me.textBoxResults.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.textBoxResults.Location = New System.Drawing.Point(12, 486)
Me.textBoxResults.Multiline = True
Me.textBoxResults.Name = "textBoxResults"
Me.textBoxResults.ScrollBars = System.Windows.Forms.ScrollBars.Both
Me.textBoxResults.Size = New System.Drawing.Size(858, 102)
Me.textBoxResults.TabIndex = 4
'
' label2
'
Me.label2.AutoSize = True
Me.label2.Location = New System.Drawing.Point(12, 470)
Me.label2.Name = "label2"
Me.label2.Size = New System.Drawing.Size(87, 13)
Me.label2.TabIndex = 5
Me.label2.Text = "Found barcodes:"
'
' openFileDialog
'
Me.openFileDialog.Filter = "Image and PDF files|*.bmp;*.gif;*.tif;*.tiff;*.png;*.jpg;*.jpeg;*.pdf|All files|*" & ".*"
'
' checkBoxAll1D
'
Me.checkBoxAll1D.AutoSize = True
Me.checkBoxAll1D.Checked = True
Me.checkBoxAll1D.CheckState = System.Windows.Forms.CheckState.Checked
Me.checkBoxAll1D.Location = New System.Drawing.Point(12, 51)
Me.checkBoxAll1D.Name = "checkBoxAll1D"
Me.checkBoxAll1D.Size = New System.Drawing.Size(359, 17)
Me.checkBoxAll1D.TabIndex = 1
Me.checkBoxAll1D.Text = "One-dimensional (linear) barcodes (Code39, Code128, GS1, EAN, etc.)"
Me.checkBoxAll1D.UseVisualStyleBackColor = True
'
' checkBoxAll2D
'
Me.checkBoxAll2D.AutoSize = True
Me.checkBoxAll2D.Checked = True
Me.checkBoxAll2D.CheckState = System.Windows.Forms.CheckState.Checked
Me.checkBoxAll2D.Location = New System.Drawing.Point(12, 74)
Me.checkBoxAll2D.Name = "checkBoxAll2D"
Me.checkBoxAll2D.Size = New System.Drawing.Size(363, 17)
Me.checkBoxAll2D.TabIndex = 2
Me.checkBoxAll2D.Text = "Two-dimensional barcodes (Aztec, PDF417, QR Code, Datamatrix, etc.)"
Me.checkBoxAll2D.UseVisualStyleBackColor = True
'
' buttonSearch
'
Me.buttonSearch.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.buttonSearch.Font = New System.Drawing.Font("Tahoma", 8.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CByte(204))
Me.buttonSearch.Location = New System.Drawing.Point(742, 51)
Me.buttonSearch.Name = "buttonSearch"
Me.buttonSearch.Size = New System.Drawing.Size(128, 40)
Me.buttonSearch.TabIndex = 3
Me.buttonSearch.Text = "Search Barcodes"
Me.buttonSearch.UseVisualStyleBackColor = True
AddHandler Me.buttonSearch.Click, New System.EventHandler(AddressOf Me.buttonSearchBarcodes_Click)
'
' panel1
'
Me.panel1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) Or System.Windows.Forms.AnchorStyles.Left) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.panel1.AutoScroll = True
Me.panel1.BackColor = System.Drawing.SystemColors.ControlDark
Me.panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.panel1.Controls.Add(Me.pictureBoxBarcode)
Me.panel1.Location = New System.Drawing.Point(12, 97)
Me.panel1.Name = "panel1"
Me.panel1.Size = New System.Drawing.Size(858, 370)
Me.panel1.TabIndex = 9
'
' Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6F, 13F)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(882, 600)
Me.Controls.Add(Me.panel1)
Me.Controls.Add(Me.buttonSearch)
Me.Controls.Add(Me.checkBoxAll2D)
Me.Controls.Add(Me.checkBoxAll1D)
Me.Controls.Add(Me.label2)
Me.Controls.Add(Me.textBoxResults)
Me.Controls.Add(Me.textBoxFileName)
Me.Controls.Add(Me.buttonBrowse)
Me.Controls.Add(Me.label1)
Me.Name = "Form1"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Barcode Reader"
DirectCast(Me.pictureBoxBarcode, System.ComponentModel.ISupportInitialize).EndInit()
Me.panel1.ResumeLayout(False)
Me.panel1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
#End Region
Private label1 As System.Windows.Forms.Label
Private buttonBrowse As System.Windows.Forms.Button
Private pictureBoxBarcode As System.Windows.Forms.PictureBox
Private textBoxFileName As System.Windows.Forms.TextBox
Private textBoxResults As System.Windows.Forms.TextBox
Private label2 As System.Windows.Forms.Label
Private openFileDialog As System.Windows.Forms.OpenFileDialog
Private checkBoxAll1D As System.Windows.Forms.CheckBox
Private checkBoxAll2D As System.Windows.Forms.CheckBox
Private buttonSearch As System.Windows.Forms.Button
Private panel1 As System.Windows.Forms.Panel
End Class
60 Day Free Trial or Visit ByteScout Data Extraction Suite Home Page
Explore ByteScout Data Extraction Suite Documentation
Explore Samples
Sign Up for ByteScout Data Extraction Suite Online Training
Get Your API Key
Explore Web API Docs
Explore Web API Samples
Imports System.Collections.Generic
Imports System.Drawing
Imports System.Windows.Forms
Imports Bytescout.BarCodeReader
Public Partial Class Form1
Inherits Form
Public Sub New()
InitializeComponent()
End Sub
Private _fileName As String = ""
Private Sub buttonBrowse_Click(sender As Object, e As EventArgs)
Dim result As DialogResult = openFileDialog.ShowDialog()
If result = DialogResult.OK Then
_fileName = openFileDialog.FileName
textBoxFileName.Text = _fileName
Try
Dim bmp As New Bitmap(_fileName)
pictureBoxBarcode.Image = bmp
Catch generatedExceptionName As Exception
pictureBoxBarcode.Image = Nothing
End Try
End If
End Sub
Private Sub buttonSearchBarcodes_Click(sender As Object, e As EventArgs)
FindBarcodes()
End Sub
Private Sub FindBarcodes()
If String.IsNullOrEmpty(_fileName) Then
Return
End If
Dim reader As New Reader()
reader.RegistrationName = "demo"
reader.RegistrationKey = "demo"
If checkBoxAll1D.Checked Then
reader.BarcodeTypesToFind.All1D = True
End If
If checkBoxAll2D.Checked Then
reader.BarcodeTypesToFind.All2D = True
End If
Cursor = Cursors.WaitCursor
' -----------------------------------------------------------------------
' NOTE: We can read barcodes from specific page to increase performance .
' For sample please refer to "Decoding barcodes from PDF by pages" program.
' -----------------------------------------------------------------------
Dim foundBarcodes As FoundBarcode() = reader.ReadFrom(_fileName)
ResetCursor()
Dim data As New List(Of String)()
If foundBarcodes.Length = 0 Then
data.Add("No barcodes found")
Else
For Each barcode As FoundBarcode In foundBarcodes
data.Add(String.Format("Type ""{0}"" and value ""{1}""", barcode.Type, barcode.Value))
Next
End If
' Cleanup
reader.Dispose()
textBoxResults.Lines = data.ToArray()
End Sub
End Class
60 Day Free Trial or Visit ByteScout Data Extraction Suite Home Page
Explore ByteScout Data Extraction Suite Documentation
Explore Samples
Sign Up for ByteScout Data Extraction Suite Online Training
Get Your API Key
Explore Web API Docs
Explore Web API Samples
Imports System.Collections.Generic
Imports System.Windows.Forms
NotInheritable Class Program
Private Sub New()
End Sub
''' <summary>
''' The main entry point for the application.
''' </summary>
<STAThread> _
Friend Shared Sub Main()
Application.EnableVisualStyles()
Application.SetCompatibleTextRenderingDefault(False)
Application.Run(New Form1())
End Sub
End Class
60 Day Free Trial or Visit ByteScout Data Extraction Suite Home Page
Explore ByteScout Data Extraction Suite Documentation
Explore Samples
Sign Up for ByteScout Data Extraction Suite Online Training
Get Your API Key
Explore Web API Docs
Explore Web API Samples
60 Day Free Trial or Visit ByteScout Data Extraction Suite Home Page
Explore ByteScout Data Extraction Suite Documentation
Explore Samples
Sign Up for ByteScout Data Extraction Suite Online Training
Get Your API Key
Explore Web API Docs
Explore Web API Samples
also available as: