ByteScout PDF SDK – VB.NET – Draw Text String in PDF

Home
/
Articles
/
ByteScout PDF SDK – VB.NET – Draw Text String in PDF

printable version:
ByteScout-PDF-SDK-VB-NET-Draw-Text-String-in-PDF.pdf

How to draw text string in PDF in VB.NET and ByteScout PDF SDK

Write code in VB.NET to draw text string in PDF with this step-by-step tutorial

Sample source code below will show you how to cope with a difficult task like draw text string in PDF in VB.NET. ByteScout PDF SDK: the pdf library that can create, update and modify PDF files. Supports text with fonts and style selections, layers, form fields, drawing lines and objects, automatic tables, images. Can be used to create and fill pdf forms. It can draw text string in PDF in VB.NET.

You will save a lot of time on writing and testing code as you may just take the VB.NET code from ByteScout PDF SDK for draw text string in PDF below and use it in your application. Follow the instructions from the scratch to work and copy the VB.NET code. Enjoy writing a code with ready-to-use sample VB.NET codes.

Free trial version of ByteScout PDF SDK is available for download from our website. Get it to try 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)

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