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: