Link Search Menu Expand Document

Multiple Barcode Generation - VB.NET

BarCode SDK sample in VB.NET demonstrating ‘Multiple Barcode Generation’

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




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

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

Resources.Designer.vb
��'------------------------------------------------------------------------------

' <auto-generated>

'     This code was generated by a tool.

'     Runtime Version:2.0.50727.5448

'

'     Changes to this file may cause incorrect behavior and will be lost if

'     the code is regenerated.

' </auto-generated>

'------------------------------------------------------------------------------



Option Strict On

Option Explicit On



Imports System



Namespace My.Resources

    

    'This class was auto-generated by the StronglyTypedResourceBuilder

    'class via a tool like ResGen or Visual Studio.

    'To add or remove a member, edit your .ResX file then rerun ResGen

    'with the /str option, or rebuild your VS project.

    '''<summary>

    '''  A strongly-typed resource class, for looking up localized strings, etc.

    '''</summary>

    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "2.0.0.0"),  _

     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _

     Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _

    Friend Module Resources

        

        Private resourceMan As Global.System.Resources.ResourceManager

        

        Private resourceCulture As Global.System.Globalization.CultureInfo

        

        '''<summary>

        '''  Returns the cached ResourceManager instance used by this class.

        '''</summary>

        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _

        Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager

            Get

                If Object.ReferenceEquals(resourceMan, Nothing) Then

                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("MultipleBarcodeGeneration.Resources", GetType(Resources).Assembly)

                    resourceMan = temp

                End If

                Return resourceMan

            End Get

        End Property

        

        '''<summary>

        '''  Overrides the current thread's CurrentUICulture property for all

        '''  resource lookups using this strongly typed resource class.

        '''</summary>

        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _

        Friend Property Culture() As Global.System.Globalization.CultureInfo

            Get

                Return resourceCulture

            End Get

            Set

                resourceCulture = value

            End Set

        End Property

        

        Friend ReadOnly Property disk_multiple() As System.Drawing.Bitmap

            Get

                Dim obj As Object = ResourceManager.GetObject("disk_multiple", resourceCulture)

                Return CType(obj,System.Drawing.Bitmap)

            End Get

        End Property

    End Module

End Namespace


Settings.Designer.vb
��'------------------------------------------------------------------------------

' <auto-generated>

'     This code was generated by a tool.

'     Runtime Version:2.0.50727.5448

'

'     Changes to this file may cause incorrect behavior and will be lost if

'     the code is regenerated.

' </auto-generated>

'------------------------------------------------------------------------------



Namespace Properties





	<System.Runtime.CompilerServices.CompilerGeneratedAttribute> _

	<System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "8.0.0.0")> _

	Friend NotInheritable Partial Class Settings

		Inherits Global.System.Configuration.ApplicationSettingsBase



		Private Shared defaultInstance As Settings = DirectCast(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New Settings()), Settings)



		Public Shared ReadOnly Property [Default]() As Settings

			Get

				Return defaultInstance

			End Get

		End Property

	End Class

End Namespace


Download Source Code (.zip)

Return to the previous page Explore BarCode SDK