Program.vb
Imports Bytescout.PDF
''' <summary>
''' This example demonstrates how to create URI (link) action.
''' </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 button
Dim button = New PushButton(20, 20, 150, 25, "button1")
button.Caption = "BYTESCOUT.COM"
' Add URI action
Dim action = New URIAction(New Uri("https://bytescout.com/"))
button.OnActivated = action
page.Annotations.Add(button)
' 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
Click here to get your Free Trial version of the SDK
also available as: