ByteScout PDF SDK – VB.NET – Use Markup for Annotations in PDF

Home
/
Articles
/
ByteScout PDF SDK – VB.NET – Use Markup for Annotations in PDF

printable version:
ByteScout-PDF-SDK-VB-NET-Use-Markup-for-Annotations-in-PDF.pdf

How to use markup for annotations in PDF in VB.NET with ByteScout PDF SDK

The tutorial below will demonstrate how to use markup for annotations in PDF in VB.NET

The documentation is designed to help you to implement the features on your side. Want to use markup for annotations in PDF in your VB.NET app? ByteScout PDF SDK is designed for it. ByteScout PDF SDK is the library for pdf documents generation, modification and updates. Can also generate and fill PDF forms. Provides support for text (fonts, style, size, font family), layers, pdf form fields, vector and raster drawings.

VB.NET code samples for VB.NET developers help to speed up coding of your application when using ByteScout PDF SDK. 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! Enjoy writing a code with ready-to-use sample codes in VB.NET.

Trial version of ByteScout PDF SDK 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 add markup annotations.
''' </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 sample markup annotations

		Dim squareAnnotation = New SquareAnnotation(20, 20, 80, 80)
		squareAnnotation.BackgroundColor = New ColorRGB(255, 240, 240)
		squareAnnotation.BorderStyle.Style = BorderStyle.Dashed
		squareAnnotation.BorderStyle.DashPattern = New DashPattern(New Single() {3, 1, 3})
		page.Annotations.Add(squareAnnotation)

		Dim circleAnnotation = New CircleAnnotation(120, 20, 80, 80)
		circleAnnotation.BackgroundColor = New ColorRGB(240, 250, 240)
		circleAnnotation.Color = New ColorRGB(128, 0, 128)
		circleAnnotation.BorderEffect.Effect = BorderEffect.Cloudy
		circleAnnotation.BorderEffect.Intensity = 2
		page.Annotations.Add(circleAnnotation)

		Dim lineAnnotation = New LineAnnotation(20, 180, 100, 120)
		lineAnnotation.Color = New ColorRGB(255, 0, 0)
		lineAnnotation.StartLineStyle = LineEndingStyle.Butt
		lineAnnotation.EndLineStyle = LineEndingStyle.OpenArrow
		page.Annotations.Add(lineAnnotation)

		Dim pp = {New PointF(120, 120), New PointF(130, 130), New PointF(140, 120), New PointF(150, 130), New PointF(160, 120), New PointF(170, 130)}
		Dim points = New PointsArray(pp)
		Dim polylineAnnotation = New PolylineAnnotation(points)
		polylineAnnotation.BorderStyle.Width = 2
		page.Annotations.Add(polylineAnnotation)

        ' 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