Important Update
Every ByteScout tool contains example VB.NET source codes that you can find here or in the folder with installed ByteScout product. Multiple barcode generation in VB.NET can be implemented with ByteScout Barcode SDK. ByteScout Barcode SDK is the robost library (Software Development Kit) that is designed for automatic generation of high-quality barcodes for printing, electronic documents and pdf. All popular barcode types are supported from Code 39 and Code 129 to QR Code, UPC, GS1, GS-128, Datamatrix, PDF417, Maxicode and many others. Provides support for full customization of fonts, colors, output and printing sizes. Special tools are included to verify output quality and printing quality. Can add generated barcode into new or existing documents, images and PDF.
VB.NET code snippet like this for ByteScout Barcode SDK works best when you need to quickly implement multiple barcode generation in your VB.NET application. Follow the instruction from the scratch to work and copy and paste code for VB.NET into your editor. Enjoy writing a code with ready-to-use sample VB.NET codes to add multiple barcode generation functions using ByteScout Barcode SDK in VB.NET.
Visit our website provides for free trial version of ByteScout Barcode SDK. Free trial includes lots 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.progressBar = New System.Windows.Forms.ProgressBar
Me.groupBox3 = New System.Windows.Forms.GroupBox
Me.label33 = New System.Windows.Forms.Label
Me.label28 = New System.Windows.Forms.Label
Me.tbValueTemplate = New System.Windows.Forms.TextBox
Me.nudValueStartAt = New System.Windows.Forms.NumericUpDown
Me.label24 = New System.Windows.Forms.Label
Me.cmbValueDigits = New System.Windows.Forms.ComboBox
Me.nudValueEndAt = New System.Windows.Forms.NumericUpDown
Me.nudValueStepBy = New System.Windows.Forms.NumericUpDown
Me.label30 = New System.Windows.Forms.Label
Me.label31 = New System.Windows.Forms.Label
Me.label32 = New System.Windows.Forms.Label
Me.groupBox2 = New System.Windows.Forms.GroupBox
Me.nudCounterStartAt = New System.Windows.Forms.NumericUpDown
Me.label25 = New System.Windows.Forms.Label
Me.label34 = New System.Windows.Forms.Label
Me.label22 = New System.Windows.Forms.Label
Me.cmbCounterDigits = New System.Windows.Forms.ComboBox
Me.tbFileNameTemplate = New System.Windows.Forms.TextBox
Me.label26 = New System.Windows.Forms.Label
Me.nudCounterStepBy = New System.Windows.Forms.NumericUpDown
Me.label27 = New System.Windows.Forms.Label
Me.btnGenerate = New System.Windows.Forms.Button
Me.label29 = New System.Windows.Forms.Label
Me.cmbImageFormat = New System.Windows.Forms.ComboBox
Me.label1 = New System.Windows.Forms.Label
Me.cmbBarcodeType = New System.Windows.Forms.ComboBox
Me.groupBox3.SuspendLayout()
CType(Me.nudValueStartAt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.nudValueEndAt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.nudValueStepBy, System.ComponentModel.ISupportInitialize).BeginInit()
Me.groupBox2.SuspendLayout()
CType(Me.nudCounterStartAt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.nudCounterStepBy, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'progressBar
'
Me.progressBar.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.progressBar.Location = New System.Drawing.Point(175, 395)
Me.progressBar.Name = "progressBar"
Me.progressBar.Size = New System.Drawing.Size(213, 10)
Me.progressBar.TabIndex = 22
Me.progressBar.Visible = False
'
'groupBox3
'
Me.groupBox3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.groupBox3.Controls.Add(Me.label33)
Me.groupBox3.Controls.Add(Me.label28)
Me.groupBox3.Controls.Add(Me.tbValueTemplate)
Me.groupBox3.Controls.Add(Me.nudValueStartAt)
Me.groupBox3.Controls.Add(Me.label24)
Me.groupBox3.Controls.Add(Me.cmbValueDigits)
Me.groupBox3.Controls.Add(Me.nudValueEndAt)
Me.groupBox3.Controls.Add(Me.nudValueStepBy)
Me.groupBox3.Controls.Add(Me.label30)
Me.groupBox3.Controls.Add(Me.label31)
Me.groupBox3.Controls.Add(Me.label32)
Me.groupBox3.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte))
Me.groupBox3.Location = New System.Drawing.Point(12, 43)
Me.groupBox3.Name = "groupBox3"
Me.groupBox3.Size = New System.Drawing.Size(376, 160)
Me.groupBox3.TabIndex = 18
Me.groupBox3.TabStop = False
Me.groupBox3.Text = "Barcode Value"
'
'label33
'
Me.label33.AutoSize = True
Me.label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.label33.Location = New System.Drawing.Point(6, 52)
Me.label33.Name = "label33"
Me.label33.Size = New System.Drawing.Size(47, 13)
Me.label33.TabIndex = 18
Me.label33.Text = "Counter:"
'
'label28
'
Me.label28.AutoSize = True
Me.label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.label28.Location = New System.Drawing.Point(6, 23)
Me.label28.Name = "label28"
Me.label28.Size = New System.Drawing.Size(51, 13)
Me.label28.TabIndex = 17
Me.label28.Text = "Template"
'
'tbValueTemplate
'
Me.tbValueTemplate.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.tbValueTemplate.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.tbValueTemplate.Location = New System.Drawing.Point(106, 20)
Me.tbValueTemplate.Name = "tbValueTemplate"
Me.tbValueTemplate.Size = New System.Drawing.Size(264, 20)
Me.tbValueTemplate.TabIndex = 16
Me.tbValueTemplate.Text = "[N]"
'
'nudValueStartAt
'
Me.nudValueStartAt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.nudValueStartAt.Location = New System.Drawing.Point(106, 49)
Me.nudValueStartAt.Maximum = New Decimal(New Integer() {1410065408, 2, 0, 0})
Me.nudValueStartAt.Name = "nudValueStartAt"
Me.nudValueStartAt.Size = New System.Drawing.Size(63, 20)
Me.nudValueStartAt.TabIndex = 0
Me.nudValueStartAt.Value = New Decimal(New Integer() {1, 0, 0, 0})
'
'label24
'
Me.label24.AutoSize = True
Me.label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.label24.Location = New System.Drawing.Point(59, 53)
Me.label24.Name = "label24"
Me.label24.Size = New System.Drawing.Size(41, 13)
Me.label24.TabIndex = 5
Me.label24.Text = "Start at"
'
'cmbValueDigits
'
Me.cmbValueDigits.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.cmbValueDigits.FormattingEnabled = True
Me.cmbValueDigits.Items.AddRange(New Object() {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10"})
Me.cmbValueDigits.Location = New System.Drawing.Point(106, 127)
Me.cmbValueDigits.Name = "cmbValueDigits"
Me.cmbValueDigits.Size = New System.Drawing.Size(63, 21)
Me.cmbValueDigits.TabIndex = 3
Me.cmbValueDigits.Text = "3"
'
'nudValueEndAt
'
Me.nudValueEndAt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.nudValueEndAt.Location = New System.Drawing.Point(106, 101)
Me.nudValueEndAt.Maximum = New Decimal(New Integer() {1410065408, 2, 0, 0})
Me.nudValueEndAt.Name = "nudValueEndAt"
Me.nudValueEndAt.Size = New System.Drawing.Size(63, 20)
Me.nudValueEndAt.TabIndex = 2
Me.nudValueEndAt.Value = New Decimal(New Integer() {100, 0, 0, 0})
'
'nudValueStepBy
'
Me.nudValueStepBy.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.nudValueStepBy.Location = New System.Drawing.Point(106, 75)
Me.nudValueStepBy.Maximum = New Decimal(New Integer() {1410065408, 2, 0, 0})
Me.nudValueStepBy.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
Me.nudValueStepBy.Name = "nudValueStepBy"
Me.nudValueStepBy.Size = New System.Drawing.Size(63, 20)
Me.nudValueStepBy.TabIndex = 1
Me.nudValueStepBy.Value = New Decimal(New Integer() {1, 0, 0, 0})
'
'label30
'
Me.label30.AutoSize = True
Me.label30.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.label30.Location = New System.Drawing.Point(59, 130)
Me.label30.Name = "label30"
Me.label30.Size = New System.Drawing.Size(33, 13)
Me.label30.TabIndex = 9
Me.label30.Text = "Digits"
'
'label31
'
Me.label31.AutoSize = True
Me.label31.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.label31.Location = New System.Drawing.Point(59, 105)
Me.label31.Name = "label31"
Me.label31.Size = New System.Drawing.Size(38, 13)
Me.label31.TabIndex = 12
Me.label31.Text = "End at"
'
'label32
'
Me.label32.AutoSize = True
Me.label32.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.label32.Location = New System.Drawing.Point(59, 79)
Me.label32.Name = "label32"
Me.label32.Size = New System.Drawing.Size(43, 13)
Me.label32.TabIndex = 8
Me.label32.Text = "Step by"
'
'groupBox2
'
Me.groupBox2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.groupBox2.Controls.Add(Me.nudCounterStartAt)
Me.groupBox2.Controls.Add(Me.label25)
Me.groupBox2.Controls.Add(Me.label34)
Me.groupBox2.Controls.Add(Me.label22)
Me.groupBox2.Controls.Add(Me.cmbCounterDigits)
Me.groupBox2.Controls.Add(Me.tbFileNameTemplate)
Me.groupBox2.Controls.Add(Me.label26)
Me.groupBox2.Controls.Add(Me.nudCounterStepBy)
Me.groupBox2.Controls.Add(Me.label27)
Me.groupBox2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte))
Me.groupBox2.Location = New System.Drawing.Point(12, 210)
Me.groupBox2.Name = "groupBox2"
Me.groupBox2.Size = New System.Drawing.Size(376, 131)
Me.groupBox2.TabIndex = 16
Me.groupBox2.TabStop = False
Me.groupBox2.Text = "File Name"
'
'nudCounterStartAt
'
Me.nudCounterStartAt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.nudCounterStartAt.Location = New System.Drawing.Point(106, 47)
Me.nudCounterStartAt.Maximum = New Decimal(New Integer() {1410065408, 2, 0, 0})
Me.nudCounterStartAt.Name = "nudCounterStartAt"
Me.nudCounterStartAt.Size = New System.Drawing.Size(63, 20)
Me.nudCounterStartAt.TabIndex = 0
Me.nudCounterStartAt.Value = New Decimal(New Integer() {1, 0, 0, 0})
'
'label25
'
Me.label25.AutoSize = True
Me.label25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.label25.Location = New System.Drawing.Point(59, 51)
Me.label25.Name = "label25"
Me.label25.Size = New System.Drawing.Size(41, 13)
Me.label25.TabIndex = 5
Me.label25.Text = "Start at"
'
'label34
'
Me.label34.AutoSize = True
Me.label34.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.label34.Location = New System.Drawing.Point(6, 50)
Me.label34.Name = "label34"
Me.label34.Size = New System.Drawing.Size(47, 13)
Me.label34.TabIndex = 19
Me.label34.Text = "Counter:"
'
'label22
'
Me.label22.AutoSize = True
Me.label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.label22.Location = New System.Drawing.Point(6, 23)
Me.label22.Name = "label22"
Me.label22.Size = New System.Drawing.Size(51, 13)
Me.label22.TabIndex = 19
Me.label22.Text = "Template"
'
'cmbCounterDigits
'
Me.cmbCounterDigits.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.cmbCounterDigits.FormattingEnabled = True
Me.cmbCounterDigits.Items.AddRange(New Object() {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10"})
Me.cmbCounterDigits.Location = New System.Drawing.Point(106, 99)
Me.cmbCounterDigits.Name = "cmbCounterDigits"
Me.cmbCounterDigits.Size = New System.Drawing.Size(63, 21)
Me.cmbCounterDigits.TabIndex = 3
Me.cmbCounterDigits.Text = "3"
'
'tbFileNameTemplate
'
Me.tbFileNameTemplate.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.tbFileNameTemplate.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.tbFileNameTemplate.Location = New System.Drawing.Point(106, 20)
Me.tbFileNameTemplate.Name = "tbFileNameTemplate"
Me.tbFileNameTemplate.Size = New System.Drawing.Size(264, 20)
Me.tbFileNameTemplate.TabIndex = 0
Me.tbFileNameTemplate.Text = "barcode[N]"
'
'label26
'
Me.label26.AutoSize = True
Me.label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.label26.Location = New System.Drawing.Point(59, 77)
Me.label26.Name = "label26"
Me.label26.Size = New System.Drawing.Size(43, 13)
Me.label26.TabIndex = 8
Me.label26.Text = "Step by"
'
'nudCounterStepBy
'
Me.nudCounterStepBy.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.nudCounterStepBy.Location = New System.Drawing.Point(106, 73)
Me.nudCounterStepBy.Maximum = New Decimal(New Integer() {1410065408, 2, 0, 0})
Me.nudCounterStepBy.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
Me.nudCounterStepBy.Name = "nudCounterStepBy"
Me.nudCounterStepBy.Size = New System.Drawing.Size(63, 20)
Me.nudCounterStepBy.TabIndex = 1
Me.nudCounterStepBy.Value = New Decimal(New Integer() {1, 0, 0, 0})
'
'label27
'
Me.label27.AutoSize = True
Me.label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.label27.Location = New System.Drawing.Point(59, 102)
Me.label27.Name = "label27"
Me.label27.Size = New System.Drawing.Size(33, 13)
Me.label27.TabIndex = 9
Me.label27.Text = "Digits"
'
'btnGenerate
'
Me.btnGenerate.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnGenerate.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte))
Me.btnGenerate.Image = Global.MultipleBarcodeGeneration.My.Resources.Resources.disk_multiple
Me.btnGenerate.Location = New System.Drawing.Point(174, 353)
Me.btnGenerate.Name = "btnGenerate"
Me.btnGenerate.Padding = New System.Windows.Forms.Padding(3, 0, 3, 0)
Me.btnGenerate.Size = New System.Drawing.Size(214, 41)
Me.btnGenerate.TabIndex = 20
Me.btnGenerate.Text = "Generate multiple barcodes"
Me.btnGenerate.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnGenerate.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
Me.btnGenerate.UseVisualStyleBackColor = True
'
'label29
'
Me.label29.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.label29.AutoSize = True
Me.label29.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte))
Me.label29.Location = New System.Drawing.Point(7, 367)
Me.label29.Name = "label29"
Me.label29.Size = New System.Drawing.Size(86, 13)
Me.label29.TabIndex = 21
Me.label29.Text = "Image format"
'
'cmbImageFormat
'
Me.cmbImageFormat.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.cmbImageFormat.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbImageFormat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.cmbImageFormat.FormattingEnabled = True
Me.cmbImageFormat.Items.AddRange(New Object() {"PNG", "JPG", "BMP", "TIFF", "GIF"})
Me.cmbImageFormat.Location = New System.Drawing.Point(99, 364)
Me.cmbImageFormat.Name = "cmbImageFormat"
Me.cmbImageFormat.Size = New System.Drawing.Size(67, 21)
Me.cmbImageFormat.TabIndex = 19
'
'label1
'
Me.label1.AutoSize = True
Me.label1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte))
Me.label1.Location = New System.Drawing.Point(7, 19)
Me.label1.Name = "label1"
Me.label1.Size = New System.Drawing.Size(82, 13)
Me.label1.TabIndex = 24
Me.label1.Text = "Barcode type"
'
'cmbBarcodeType
'
Me.cmbBarcodeType.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cmbBarcodeType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbBarcodeType.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.cmbBarcodeType.FormattingEnabled = True
Me.cmbBarcodeType.Location = New System.Drawing.Point(118, 16)
Me.cmbBarcodeType.Name = "cmbBarcodeType"
Me.cmbBarcodeType.Size = New System.Drawing.Size(269, 21)
Me.cmbBarcodeType.TabIndex = 23
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(401, 414)
Me.Controls.Add(Me.label1)
Me.Controls.Add(Me.cmbBarcodeType)
Me.Controls.Add(Me.progressBar)
Me.Controls.Add(Me.groupBox3)
Me.Controls.Add(Me.groupBox2)
Me.Controls.Add(Me.btnGenerate)
Me.Controls.Add(Me.label29)
Me.Controls.Add(Me.cmbImageFormat)
Me.Name = "Form1"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Multiple Barcode Generation"
Me.groupBox3.ResumeLayout(False)
Me.groupBox3.PerformLayout()
CType(Me.nudValueStartAt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.nudValueEndAt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.nudValueStepBy, System.ComponentModel.ISupportInitialize).EndInit()
Me.groupBox2.ResumeLayout(False)
Me.groupBox2.PerformLayout()
CType(Me.nudCounterStartAt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.nudCounterStepBy, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
#End Region
Private progressBar As System.Windows.Forms.ProgressBar
Private groupBox3 As System.Windows.Forms.GroupBox
Private label33 As System.Windows.Forms.Label
Private label28 As System.Windows.Forms.Label
Private tbValueTemplate As System.Windows.Forms.TextBox
Private nudValueStartAt As System.Windows.Forms.NumericUpDown
Private label24 As System.Windows.Forms.Label
Private cmbValueDigits As System.Windows.Forms.ComboBox
Private nudValueEndAt As System.Windows.Forms.NumericUpDown
Private nudValueStepBy As System.Windows.Forms.NumericUpDown
Private label30 As System.Windows.Forms.Label
Private label31 As System.Windows.Forms.Label
Private label32 As System.Windows.Forms.Label
Private groupBox2 As System.Windows.Forms.GroupBox
Private nudCounterStartAt As System.Windows.Forms.NumericUpDown
Private label25 As System.Windows.Forms.Label
Private label34 As System.Windows.Forms.Label
Private label22 As System.Windows.Forms.Label
Private cmbCounterDigits As System.Windows.Forms.ComboBox
Private tbFileNameTemplate As System.Windows.Forms.TextBox
Private label26 As System.Windows.Forms.Label
Private nudCounterStepBy As System.Windows.Forms.NumericUpDown
Private label27 As System.Windows.Forms.Label
Private WithEvents btnGenerate As System.Windows.Forms.Button
Private label29 As System.Windows.Forms.Label
Private cmbImageFormat As System.Windows.Forms.ComboBox
Private label1 As System.Windows.Forms.Label
Private cmbBarcodeType As System.Windows.Forms.ComboBox
End Class
60 Day Free Trial or Visit ByteScout Barcode SDK Home Page
Explore ByteScout Barcode SDK Documentation
Explore Samples
Sign Up for ByteScout Barcode SDK Online Training
Get Your API Key
Explore Web API Docs
Explore Web API Samples
Imports System.IO
Imports System.Windows.Forms
Imports Bytescout.BarCode
Public Partial Class Form1
Inherits Form
Public Sub New()
InitializeComponent()
For Each st As SymbologyType In [Enum].GetValues(GetType(SymbologyType))
cmbBarcodeType.Items.Add(st)
Next
cmbBarcodeType.SelectedIndex = 0
cmbImageFormat.SelectedIndex = 0
End Sub
Private Sub btnGenerate_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnGenerate.Click
Dim folderBrowserDialog As New FolderBrowserDialog()
folderBrowserDialog.Description = "Select output folder"
If folderBrowserDialog.ShowDialog() <> DialogResult.OK Then
Return
End If
Dim fileNameTemplate As String = tbFileNameTemplate.Text & "." & Convert.ToString(cmbImageFormat.SelectedItem).ToLower()
Dim counterStartAt As UInteger = CUInt(Math.Truncate(nudCounterStartAt.Value))
Dim counterStepBy As UInteger = CUInt(Math.Truncate(nudCounterStepBy.Value))
Dim counterDigits As UInteger = Convert.ToUInt32(cmbCounterDigits.Text)
If Not fileNameTemplate.Contains("[N]") Then
MessageBox.Show("File name template does not contain the counter placeholder [N]")
Return
End If
Dim valueTemplate As String = tbValueTemplate.Text
Dim valueStartAt As UInteger = CUInt(Math.Truncate(nudValueStartAt.Value))
Dim valueStepBy As UInteger = CUInt(Math.Truncate(nudValueStepBy.Value))
Dim valueEndAt As UInteger = CUInt(Math.Truncate(nudValueEndAt.Value))
Dim valueDigits As UInteger = Convert.ToUInt32(cmbValueDigits.Text)
If Not valueTemplate.Contains("[N]") Then
MessageBox.Show("Barcode value template does not contain the counter placeholder [N]")
Return
End If
Cursor = Cursors.WaitCursor
progressBar.Visible = True
btnGenerate.Text = "Stop"
Try
progressBar.Value = CInt(valueStartAt)
progressBar.Minimum = CInt(valueStartAt)
progressBar.Maximum = CInt(valueEndAt)
progressBar.Step = CInt(valueStepBy)
GenerateBarcodes(valueTemplate, valueStartAt, valueEndAt, valueStepBy, valueDigits, fileNameTemplate, _
counterStartAt, counterStepBy, counterDigits, folderBrowserDialog.SelectedPath)
Catch exception As Exception
MessageBox.Show(exception.Message)
Finally
Cursor = Cursors.Default
progressBar.Visible = False
btnGenerate.Text = "Generate multiple barcodes"
End Try
End Sub
Private Sub GenerateBarcodes(valueTemplate As String, valueStartAt As UInteger, valueEndAt As UInteger, valueStepBy As UInteger, valueDigits As UInteger, fileNameTemplate As String, _
counterStartAt As UInteger, counterStepBy As UInteger, counterDigits As UInteger, outputFolder As String)
Dim barcode As New Barcode()
barcode.RegistrationKey = "demo"
barcode.RegistrationName = "demo"
barcode.Symbology = CType(cmbBarcodeType.SelectedItem, SymbologyType)
' Set up additional barcode properties here.
'barcode.AdditionalCaption = "...";
Dim c As UInteger = counterStartAt
Dim i As UInteger = valueStartAt
While i <= valueEndAt
Dim value As String = String.Format("{0:D" & valueDigits & "}", i)
Dim counter As String = String.Format("{0:D" & counterDigits & "}", c)
Dim fileName As String = fileNameTemplate.Replace("[N]", counter)
progressBar.PerformStep()
barcode.Value = valueTemplate.Replace("[N]", value)
barcode.SaveImage(Path.Combine(outputFolder, fileName))
c += counterStepBy
Application.DoEvents()
i += valueStepBy
End While
End Sub
End Class
60 Day Free Trial or Visit ByteScout Barcode SDK Home Page
Explore ByteScout Barcode SDK Documentation
Explore Samples
Sign Up for ByteScout Barcode SDK 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 Barcode SDK Home Page
Explore ByteScout Barcode SDK Documentation
Explore Samples
Sign Up for ByteScout Barcode SDK Online Training
Get Your API Key
Explore Web API Docs
Explore Web API Samples
60 Day Free Trial or Visit ByteScout Barcode SDK Home Page
Explore ByteScout Barcode SDK Documentation
Explore Samples
Sign Up for ByteScout Barcode SDK Online Training
Get Your API Key
Explore Web API Docs
Explore Web API Samples