ByteScout BarCode Generator SDK – VB.NET – Macro PDF 417 (multiple)

ByteScout BarCode Generator SDK – VB.NET – Macro PDF 417 (multiple)

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

  Click here to get your Free Trial version of the SDK