ByteScout PDF Suite – VB.NET – Add text annotation in pdf with pdf sdk

Home
/
Articles
/
ByteScout PDF Suite – VB.NET – Add text annotation in pdf with pdf sdk

printable version:
ByteScout-PDF-Suite-VB-NET-Add-text-annotation-in-pdf-with-pdf-sdk.pdf

How to add text annotation in pdf with pdf sdk in VB.NET with ByteScout PDF Suite

This code in VB.NET shows how to add text annotation in pdf with pdf sdk with this how to tutorial

An easy to understand guide on how to add text annotation in pdf with pdf sdk in VB.NET with this source code sample. ByteScout PDF Suite: the bundle that provides six different SDK libraries 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 add text annotation in pdf with pdf sdk in VB.NET.

This prolific sample source code in VB.NET for ByteScout PDF Suite contains various functions and other necessary options you should do calling the API to add text annotation in pdf with pdf sdk. Just copy and paste the code into your VB.NET application’s code and follow the instructions. Enjoy writing a code with ready-to-use sample VB.NET codes.

If you want to try other source code samples then the free trial version of ByteScout PDF Suite is available for download from our website. Just 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 Bytescout.PDF

''' <summary>
''' This example demonstrates how to add a text annotation.
''' </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)

        ' Add collapsed annotation (shown as a tooltip when mouse is over the icon)
        Dim collapsedAnnotation = New TextAnnotation(20, 20)
        collapsedAnnotation.Color = New ColorRGB(255, 255, 0)
        collapsedAnnotation.Icon = TextAnnotationIcon.Comment
        collapsedAnnotation.Author = "Mr. Important"
        collapsedAnnotation.Contents = "The quick brown fox jumps over the lazy dog."
        page.Annotations.Add(collapsedAnnotation)

        ' Add expanded annotation
        Dim expandedAnnotation = New TextAnnotation(20, 50)
        expandedAnnotation.Color = New ColorRGB(255, 0, 0)
        expandedAnnotation.Icon = TextAnnotationIcon.Note
        expandedAnnotation.Open = True
        expandedAnnotation.Author = "John Doe"
        expandedAnnotation.Contents = "The quick brown fox jumps over the lazy dog."
        page.Annotations.Add(expandedAnnotation)

        ' 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