ByteScout Barcode Suite – VB.NET – Generate pharmacode barcode with barcode sdk

Home
/
Articles
/
ByteScout Barcode Suite – VB.NET – Generate pharmacode barcode with barcode sdk

printable version:
ByteScout-Barcode-Suite-VB-NET-Generate-pharmacode-barcode-with-barcode-sdk.pdf

How to generate pharmacode barcode with barcode sdk in VB.NET with ByteScout Barcode Suite

How to write a robust code in VB.NET to generate pharmacode barcode with barcode sdk with this step-by-step tutorial

The sample shows instructions and algorithm of how to generate pharmacode barcode with barcode sdk and how to make it run in your VB.NET application. ByteScout Barcode Suite is the set that includes three different SDK products to generate barcodes, read barcodes and read and write spreadsheets: Barcode SDK, Barcode Reader SDK and Spreadsheet SDK. It can generate pharmacode barcode with barcode sdk in VB.NET.

The following code snippet for ByteScout Barcode Suite works best when you need to quickly generate pharmacode barcode with barcode sdk in your VB.NET application. Just copy and paste the code into your VB.NET application’s code and follow the instructions. This basic programming language sample code for VB.NET will do the whole work for you to generate pharmacode barcode with barcode sdk.

All these programming tutorials along with source code samples and ByteScout free trial version are available for download from our website.

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

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

Program.vb

      Imports System.Drawing
Imports System.Drawing.Imaging
Imports Bytescout.BarCode

Module Program

    Sub Main()

        Try

            ' Create new barcode
            Using barcode As Barcode = New Barcode()

                barcode.RegistrationName = "demo"
                barcode.RegistrationKey = "demo"

                ' Set symbology
                barcode.Symbology = SymbologyType.PharmaCode

                ' Optional margins
                barcode.Margins = New Margins(5, 5, 5, 5)

                ' Set Value
                barcode.Value = "12345"

                ' Set PharmaCode options:
                ' barcode.Options.PharmaCodeSupplementaryCode = True
                ' barcode.Options.PharmaCodeSupplementaryBarColor = Color.Orange
                ' barcode.Options.PharmaCodeMiniature = True
                ' barcode.Options.PharmaCodeTwoTrack = True

                ' Save 300 DPI Image
                barcode.ResolutionX = 300
                barcode.ResolutionY = 300
                barcode.SaveImage("300dpi.png", ImageFormat.Png)

                ' Save 600 DPI Image
                barcode.ResolutionX = 600
                barcode.ResolutionY = 600
                barcode.SaveImage("600dpi.png", ImageFormat.Png)

            End Using

            ' Show image in default image viewer
            Process.Start("300dpi.png")
            Process.Start("600dpi.png")

        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try

        Console.WriteLine("Press enter key to exit...")
        Console.ReadLine()

    End Sub

End Module