ByteScout Premium Suite – VB.NET – Generate macro pdf417 (multiple) barcode with barcode sdk

Home
/
Articles
/
ByteScout Premium Suite – VB.NET – Generate macro pdf417 (multiple) barcode with barcode sdk

printable version:
ByteScout-Premium-Suite-VB-NET-Generate-macro-pdf417-(multiple)-barcode-with-barcode-sdk.pdf

How to generate macro pdf417 (multiple) barcode with barcode sdk in VB.NET with ByteScout Premium Suite

How to write a robust code in VB.NET to generate macro pdf417 (multiple) barcode with barcode sdk with this step-by-step tutorial

We made thousands of pre-made source code pieces for easy implementation in your own programming projects. ByteScout Premium Suite is the bundle that includes twelve SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording and you can use it to generate macro pdf417 (multiple) barcode with barcode sdk with VB.NET.

These VB.NET code samples for VB.NET guide developers to speed up coding of the application when using ByteScout Premium Suite. IF you want to implement the functionality, just copy and paste this code for VB.NET below into your code editor with your app, compile and run your application. Use of ByteScout Premium Suite in VB.NET is also described in the documentation included along with the product.

Trial version of ByteScout Premium Suite is available for free. Source code samples are included to help you with your VB.NET app.

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

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

Module1.vb

      Imports Bytescout.BarCode

Module Module1

    Sub Main()
        ' Create new barcode
        Dim barcode As New Barcode()

        ' Set symbology
        barcode.Symbology = SymbologyType.MacroPDF417

        ' we will encode value 123456789
        ' will break into 3 segments, each segment includes 3 symbols

        ' 1st segment
        ' create the first segment barcode so set SegmentIndex = 1
        barcode.Options.PDF417SegmentIndex = 1
        ' Set value            
        barcode.Value = "123"
        ' set that this is not the last segment yet
        barcode.Options.PDF417LastSegment = False

        ' Save barcode to image
        barcode.SaveImage("MacroPDFBarcode-part1.png")

        ' 2nd segment
        ' create the 2nd segment barcode so set SegmentIndex = 2
        barcode.Options.PDF417SegmentIndex = 2
        ' Set value            
        barcode.Value = "456"
        ' set that this is not the last segment yet
        barcode.Options.PDF417LastSegment = False

        ' Save barcode to image
        barcode.SaveImage("MacroPDFBarcode-part2.png")


        ' 3rd segment
        ' create the 3rd segment barcode so set SegmentIndex = 3
        barcode.Options.PDF417SegmentIndex = 3
        ' Set value            
        barcode.Value = "789"
        ' set that this is the LAST segment, so set PDF417LastSegment = TRUE
        barcode.Options.PDF417LastSegment = True

        ' Save barcode to image
        barcode.SaveImage("MacroPDFBarcode-part3.png")

        ' now open all three images

        ' Show image in default image viewer
        Process.Start("MacroPDFBarcode-part1.png")
        Process.Start("MacroPDFBarcode-part2.png")
        Process.Start("MacroPDFBarcode-part3.png")
    End Sub

End Module