ByteScout PDF SDK – VBScript and VB6 – Create URI (Link) Action in PDF

Home
/
Articles
/
ByteScout PDF SDK – VBScript and VB6 – Create URI (Link) Action in PDF

printable version:
ByteScout-PDF-SDK-VBScript-and-VB6-Create-URI-(Link)-Action-in-PDF.pdf

How to create URI (link) action in PDF in VBScript and VB6 using ByteScout PDF SDK

How to create URI (link) action in PDF in VBScript and VB6

The code below will help you to implement an VBScript and VB6 app to create URI (link) action in PDF. Want to create URI (link) action in PDF in your VBScript and VB6 app? ByteScout PDF SDK is designed for it. ByteScout PDF SDK is the pdf library that can create, update and modify PDF files. Supports text with fonts and style selections, layers, form fields, drawing lines and objects, automatic tables, images. Can be used to create and fill pdf forms.

The SDK samples like this one below explain how to quickly make your application do create URI (link) action in PDF in VBScript and VB6 with the help of ByteScout PDF SDK. Just copy and paste the code into your VBScript and VB6 application’s code and follow the instruction. Enjoy writing a code with ready-to-use sample VBScript and VB6 codes.

Free trial version of ByteScout PDF SDK is available on our website. Documentation and source code samples are included.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

UriAction.vbs

      ' This example demonstrates how to create URI (link) action.

' Create Bytescout.PDF.Document object
Set pdfDocument = CreateObject("Bytescout.PDF.Document")
pdfDocument.RegistrationName = "demo"
pdfDocument.RegistrationKey = "demo"

Set comHelpers = pdfDocument.ComHelpers

' Add page
Set page1 = comHelpers.CreatePage(comHelpers.PAPERFORMAT_A4)
pdfDocument.Pages.Add(page1)

' Add button
Set button1 = comHelpers.CreatePushButton(20, 20, 150, 25, "button1")
button1.Caption = "BYTESCOUT.COM"
' Add URI action
Set uriAction = comHelpers.CreateURIAction("https://bytescout.com/")
button1.OnActivated = uriAction
page1.Annotations.Add(button1)

' Save document to file
pdfDocument.Save("result.pdf")

' Open document in default PDF viewer app
Set shell = CreateObject("WScript.Shell")
shell.Run "result.pdf", 1, false