ByteScout Barcode Reader SDK – VB.NET – GUI Example For Barcode Reading

Home
/
Articles
/
ByteScout Barcode Reader SDK – VB.NET – GUI Example For Barcode Reading

printable version:
ByteScout-BarCode-Reader-SDK-VB-NET-GUI-Example-For-Barcode-Reading.pdf

GUI example for barcode reading in VB.NET using ByteScout BarCode Reader SDK

How To: tutorial on GUI example for barcode reading in VB.NET

Today you are going to learn how to GUI example for barcode reading in VB.NET. ByteScout BarCode Reader SDK was made to help with GUI example for barcode reading in VB.NET. ByteScout BarCode Reader SDK is the SDK for barcode decoding. Can read all popular types from Code 128, GS1, UPC and Code 39 to QR Code, Datamatrix, PDF417. Images, pdf, TIF images and live web camera are supported as input. Designed to handle documents with noise and defects. Includes optional splitter and merger for pdf and tiff based on barcodes. Batch mode is optimized for high performance with multiple threads. Decoded values can be exported to XML, JSON, CSV or into custom data format.

VB.NET, code samples for VB.NET, developers help to speed up the application development and writing a code when using ByteScout BarCode Reader SDK. To do GUI example for barcode reading in your VB.NET project or application you may simply copy & paste the code and then run your app! Code testing will allow the function to be tested and work properly with your data.

Our website provides free trial version of ByteScout BarCode Reader SDK. It comes along with all these source code samples with the goal to help you with your VB.NET application implementation.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

Form1.Designer.vb

      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

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout BarCode Reader SDK Home Page

Explore ByteScout BarCode Reader SDK Documentation

Explore Samples

Sign Up for ByteScout BarCode Reader SDK Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

Form1.vb

      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

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout BarCode Reader SDK Home Page

Explore ByteScout BarCode Reader SDK Documentation

Explore Samples

Sign Up for ByteScout BarCode Reader SDK Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

Program.vb

      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