ByteScout Premium Suite – VB.NET – Draw text string in pdf with pdf sdk

Home
/
Articles
/
ByteScout Premium Suite – VB.NET – Draw text string in pdf with pdf sdk

printable version:
ByteScout-Premium-Suite-VB-NET-Draw-text-string-in-pdf-with-pdf-sdk.pdf

How to draw text string in pdf with pdf sdk in VB.NET and ByteScout Premium Suite

Continuous learning is a crucial part of computer science and this tutorial shows how to draw text string in pdf with pdf sdk in VB.NET

The sample source code below will teach you how to draw text string in pdf with pdf sdk in VB.NET. Want to draw text string in pdf with pdf sdk in your VB.NET app? ByteScout Premium Suite is designed for it. ByteScout Premium Suite is the set that includes 12 SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording.

These VB.NET code samples for VB.NET guide developers to speed up coding of the application when using ByteScout Premium Suite. This VB.NET sample code is all you need for your app. Just copy and paste the code, add references (if needs to) and you are all set! If you want to use these VB.NET sample examples in one or many applications then they can be used easily.

The trial version of ByteScout Premium Suite can be downloaded for free from our website. It also includes source code samples for VB.NET and other programming languages.

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

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

Program.vb

      Imports System.Drawing
Imports Bytescout.PDF

''' <summary>
''' This example demonstrates how to draw a text.
''' </summary>
Class Program

    Shared Sub Main()

        ' Create new document
        Dim pdfDocument = New Document()
        pdfDocument.RegistrationName = "demo"
		pdfDocument.RegistrationKey = "demo"
        ' Add page
        Dim page = New Page(PaperFormat.A4)
        pdfDocument.Pages.Add(page)

        ' Draw simple text
        Dim font = New Bytescout.PDF.Font("Arial", 24)
        Dim blackBrush = New Bytescout.PDF.SolidBrush()
        page.Canvas.DrawString("Simple text.", font, blackBrush, 20, 20)

        ' Draw text with alignment in specified rectangle
        Dim stringFormat = New Bytescout.PDF.StringFormat()
        stringFormat.HorizontalAlign = HorizontalAlign.Right
        stringFormat.VerticalAlign = VerticalAlign.Bottom
        page.Canvas.DrawString("Aligned text", font, blackBrush, New RectangleF(20, 100, 200, 60), stringFormat)
        page.Canvas.DrawRectangle(New SolidPen(), 20, 100, 200, 60)

        ' Draw colored text
        Dim boldFont = New Bytescout.PDF.Font("Arial", 32, True, False, False, False)
        Dim redBrush = New Bytescout.PDF.SolidBrush(New ColorRGB(255, 0, 0))
        Dim bluePen = New SolidPen(New ColorRGB(0, 0, 255))
        page.Canvas.DrawString("Colored text", boldFont, redBrush, 20, 200)
        page.Canvas.DrawString("Outlined colored text", boldFont, redBrush, bluePen, 20, 240)
        page.Canvas.DrawString("Outlined transparent text", boldFont, bluePen, 20, 280)

        ' Save document to file
        pdfDocument.Save("result.pdf")

        ' Cleanup 
        pdfDocument.Dispose()

        ' Open document in default PDF viewer app
        Process.Start("result.pdf")

    End Sub

End Class