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

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

printable version:
ByteScout-PDF-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 PDF Suite

Learning is essential in computer world and the tutorial below will demonstrate how to draw text string in pdf with pdf sdk in VB.NET

On this page you will learn from code samples for programming in VB.NET.Writing of the code to draw text string in pdf with pdf sdk in VB.NET can be executed by programmers of any level using ByteScout PDF Suite. ByteScout PDF Suite is the set that includes 6 SDK products to work with PDF from generating rich PDF reports to extracting data from PDF documents and converting them to HTML. This bundle includes PDF (Generator) SDK, PDF Renderer SDK, PDF Extractor SDK, PDF to HTML SDK, PDF Viewer SDK and PDF Generator SDK for Javascript. It can draw text string in pdf with pdf sdk in VB.NET.

The following code snippet for ByteScout PDF Suite works best when you need to quickly draw text string in pdf with pdf sdk in your VB.NET application. Follow the instructions from scratch to work and copy the VB.NET code. Enjoy writing a code with ready-to-use sample VB.NET codes.

ByteScout PDF Suite free trial version is available on our website. VB.NET and other programming languages are supported.

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