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

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

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

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

Every ByteScout tool includes simple example VB.NET source codes that you can get here or in the folder with installed ByteScout product. What is ByteScout Premium Suite? It is the bundle that includes twelve SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording. It can help you to add video annotation in pdf with pdf sdk in your VB.NET application.

Want to save time? You will save a lot of time on writing and testing code as you may just take the VB.NET code from ByteScout Premium Suite for add video annotation in pdf with pdf sdk below and use it in your application. 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! Complete and detailed tutorials and documentation are available along with installed ByteScout Premium Suite if you’d like to learn more about the topic and the details of the API.

You can download free trial version of ByteScout Premium Suite from our website to see and try many others 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 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