ByteScout BarCode Generator SDK – VB.NET – Additional Caption

Home
/
Articles
/
ByteScout BarCode Generator SDK – VB.NET – Additional Caption

printable version:
ByteScout-Barcode-SDK-VB-NET-Additional-Caption.pdf

additional caption in VB.NET with ByteScout Barcode SDK

Make additional caption in VB.NET

Tutorial on how to do additional caption in VB.NET

Source code documentation samples provide quick and easy way to add a required functionality into your application. ByteScout Barcode SDK helps with additional caption in VB.NET. ByteScout Barcode SDK is the robost SDK that generates high quality barcode images and pdf. Can generate all popular types of barcodes from QR Code, Code 39, Code 128, UPC, GS1, GS-128, PDF417, Datamatrix to more exotic barcode types. Fully customizable fonts, colors, print sizes. Includes special functions to ensure output quality, and tools for adding barcodes to new or existing pdf files and images.

VB.NET, code samples for VB.NET, developers help to speed up the application development and writing a code when using ByteScout Barcode SDK. To do additional caption in your VB.NET project or application you may simply copy & paste the code and then run your app! You can use these VB.NET sample examples in one or many applications.

Visit our website provides for free trial version of ByteScout Barcode SDK. Free trial includes lots of source code samples to help you with your VB.NET project.

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

Imports Bytescout.BarCode

Module Module1

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

        ' Set symbology
        barcode.Symbology = SymbologyType.Codabar
        ' Set value
        barcode.Value = "123456"

        ' Set custom additional caption
        barcode.AdditionalCaption = "Custom caption"
        ' Set additional caption font
        barcode.AdditionalCaptionFont = New Font("Comic Sans MS", 12)
        ' Set additional caption position
        barcode.AdditionalCaptionPosition = CaptionPosition.Above

        ' Save barcode to image
        barcode.SaveImage("result.png")

        ' Show image in default image viewer
        Process.Start("result.png")
    End Sub

End Module