ByteScout Premium Suite – VB.NET – Add 3d annotations to pdf with pdf sdk

Home
/
Articles
/
ByteScout Premium Suite – VB.NET – Add 3d annotations to pdf with pdf sdk

printable version:
ByteScout-Premium-Suite-VB-NET-Add-3d-annotations-to-pdf-with-pdf-sdk.pdf

How to add 3d annotations to pdf with pdf sdk in VB.NET using ByteScout Premium Suite

If you want to learn more then this tutorial will show how to add 3d annotations to 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 add 3d annotations to pdf with pdf sdk in VB.NET can be executed by programmers of any level using ByteScout Premium Suite. ByteScout Premium Suite is the set that includes 12 SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording. It can be applied to add 3d annotations to pdf with pdf sdk using VB.NET.

Want to quickly learn? This fast application programming interfaces of ByteScout Premium Suite for VB.NET plus the guidelines and the code below will help you quickly learn how to add 3d annotations to pdf with pdf sdk. Just copy and paste the code into your VB.NET application’s code and follow the instructions. Further improvement of the code will make it more robust.

Our website gives trial version of ByteScout Premium Suite for free. It also includes documentation and source code samples.

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 create 3D 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 3D annotation from .u3d file
        Dim model = New ThreeDData("box.u3d")
        Dim annotation = New ThreeDAnnotation(model, 100, 100, 200, 200)
        page.Annotations.Add(annotation)

        ' 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