ByteScout Premium Suite - VB.NET - Multiple barcode generation with barcode sdk - ByteScout

ByteScout Premium Suite – VB.NET – Multiple barcode generation with barcode sdk

  • Home
  • /
  • Articles
  • /
  • ByteScout Premium Suite – VB.NET – Multiple barcode generation with barcode sdk

multiple barcode generation with barcode sdk in VB.NET and ByteScout Premium Suite

Learn to code in VB.NET to make multiple barcode generation with barcode sdk with this simple How-To tutorial

An easy to understand guide to learn how to multiple barcode generation with barcode sdk in VB.NET. ByteScout Premium Suite was created to assist multiple barcode generation with barcode sdk in VB.NET. ByteScout Premium Suite is the set that includes 12 SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording.

If you want to quickly learn then these fast application programming interfaces of ByteScout Premium Suite for VB.NET plus the guideline and the VB.NET code below will help you quickly learn multiple barcode generation with barcode sdk. Just copy and paste this VB.NET sample code to your VB.NET application’s code editor, add a reference to ByteScout Premium Suite (if you haven’t added yet) and you are ready to go! Further improvement of the code will make it more robust.

ByteScout Premium Suite is available as a free trial. You may get it from our website along with all other source code samples for VB.NET applications.

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.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

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Premium Suite Home Page

Explore ByteScout Premium Suite Documentation

Explore Samples

Sign Up for ByteScout Premium Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

Form1.vb
      
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

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Premium Suite Home Page

Explore ByteScout Premium Suite Documentation

Explore Samples

Sign Up for ByteScout Premium Suite 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

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Premium Suite Home Page

Explore ByteScout Premium Suite Documentation

Explore Samples

Sign Up for ByteScout Premium Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

VIDEO

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Premium Suite Home Page

Explore ByteScout Premium Suite Documentation

Explore Samples

Sign Up for ByteScout Premium Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

Tutorials:

prev
next