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