ByteScout Premium Suite – VB.NET – Additional caption with barcode sdk

Home
/
Articles
/
ByteScout Premium Suite – VB.NET – Additional caption with barcode sdk

printable version:
ByteScout-Premium-Suite-VB-NET-Additional-caption-with-barcode-sdk.pdf

additional caption with barcode sdk in VB.NET and ByteScout Premium Suite

Learn to code additional caption with barcode sdk in VB.NET: How-To tutorial

This page explains the steps and algorithm of implementing additional caption with barcode sdk and how to make it work in your application. Additional caption with barcode sdk in VB.NET can be applied with ByteScout Premium Suite. ByteScout Premium Suite is the set that includes 12 SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording.

Save time on writing and testing code by using the code below and use it in your application. If you want to implement this functionality, you should copy and paste code below into your app using code editor. Then compile and run your application. Updated and detailed documentation and tutorials are available along with installed ByteScout Premium Suite if you’d like to learn more about the topic and the details of the API.

Trial version can be downloaded from our website for free. It contains this and other source code samples for VB.NET.

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