ByteScout Premium Suite – VB.NET – Fill form w-9 with pdf sdk

Home
/
Articles
/
ByteScout Premium Suite – VB.NET – Fill form w-9 with pdf sdk

printable version:
ByteScout-Premium-Suite-VB-NET-Fill-form-w-9-with-pdf-sdk.pdf

fill form w 9 with pdf sdk in VB.NET using ByteScout Premium Suite

How to apply ByteScout Premium Suite for fill form w 9 with pdf sdk in VB.NET

We regularly create and update our sample code library so you may quickly learn fill form w 9 with pdf sdk and the step-by-step process in VB.NET. ByteScout Premium Suite was created to assist fill form w 9 with pdf sdk in VB.NET. ByteScout Premium Suite is the bundle that includes twelve SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording.

Save time on writing and testing code by using the code below and use it in your application. If you want to know how it works, then this VB.NET sample code should be copied and pasted into your application’s code editor. Then just compile and run it. Check these VB.NET sample code examples to see if they acknowledge to your needs and requirements for the project.

On our website you may get trial version of ByteScout Premium Suite for free. Source code samples are included to help you with your VB.NET application.

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 fill PDF form programmatically.
''' </summary>
Class Program

    Shared Sub Main()

        ' Map of form fields and sample values to set
        Dim fieldMap As New Dictionary(Of String, Object)()

        fieldMap.Add("f1_1[0]", "John J Smith") ' Name
        fieldMap.Add("f1_2[0]", "12 Palm st., Hill Valley, CA 12345") ' Business address

        ' Load PDF form
        Dim pdfDocument = New Document("W-9.pdf")
        pdfDocument.RegistrationName = "demo"
        pdfDocument.RegistrationKey = "demo"

        ' Get first page
        Dim page = pdfDocument.Pages(0)

        ' Get widget by its name and change value
        For Each keyValuePair In fieldMap

            Dim annotation As Annotation = page.Annotations(keyValuePair.Key)

            If TypeOf (annotation) Is CheckBox Then
                CType(annotation, CheckBox).Checked = CType(keyValuePair.Value, Boolean)
            ElseIf TypeOf (annotation) Is EditBox Then
                CType(annotation, EditBox).Text = CType(keyValuePair.Value, String)
            End If

        Next

        ' Save modified document
        pdfDocument.Save("result.pdf")

        ' Cleanup 
        pdfDocument.Dispose()

        ' Open document in default PDF viewer app
        Process.Start("result.pdf")

    End Sub

End Class