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

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

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

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

How to write a robust code in VB.NET to add video annotation in pdf with pdf sdk with this step-by-step tutorial

This sample source code below will display you how to add video annotation in pdf with pdf sdk in VB.NET. ByteScout PDF Suite is 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 and you can use it to add video annotation in pdf with pdf sdk with 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 video annotation in pdf with pdf sdk. Follow the instructions from scratch to work and copy the VB.NET code. If you want to use these VB.NET sample examples in one or many applications then they can be used easily.

Trial version of ByteScout PDF Suite is available for free. Source code samples are included to help you with your VB.NET app.

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 video to PDF document.
''' </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 video annotation
        Dim movie = New Movie("sample.avi")
        Dim movieAnnotation = New MovieAnnotation(movie, 20, 20, 320, 240)
        movieAnnotation.MovieActivation.ShowControls = True
        page.Annotations.Add(movieAnnotation)

        ' 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