ByteScout PDF SDK – VB.NET – Create Submit Form Action in PDF

Home
/
Articles
/
ByteScout PDF SDK – VB.NET – Create Submit Form Action in PDF

printable version:
ByteScout-PDF-SDK-VB-NET-Create-Submit-Form-Action-in-PDF.pdf

How to create submit form action in PDF in VB.NET with ByteScout PDF SDK

How to code in VB.NET to create submit form action in PDF with this step-by-step tutorial

The sample source codes on this page shows how to create submit form action in PDF in VB.NET. ByteScout PDF SDK: 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. It can create submit form action in PDF in VB.NET.

Fast application programming interfaces of ByteScout PDF SDK for VB.NET plus the instruction and the code below will help you quickly learn how to create submit form action in PDF. In your VB.NET project or application you may simply copy & paste the code and then run your app! Detailed tutorials and documentation are available along with installed ByteScout PDF SDK if you’d like to dive deeper into the topic and the details of the API.

Our website provides trial version of ByteScout PDF SDK for free. It also includes documentation and source code samples.

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 submit or reset form.
''' </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)

        ' Create sample form
        Dim font = New Font(StandardFonts.Times, 14)
        Dim brush = New SolidBrush()
        ' EditBox
        Dim editBox = New EditBox(20, 20, 100, 25, "editBox1")
        editBox.Text = "editBox1"
        page.Annotations.Add(editBox)
        ' CheckBox
        Dim checkBox = New CheckBox(20, 60, 15, 15, "checkBox1")
        page.Annotations.Add(checkBox)
        page.Canvas.DrawString("CheckBox", font, brush, 45, 60)

        ' Add Submit button
        Dim submitButton = New PushButton(20, 120, 80, 25, "buttonSubmit")
        submitButton.Caption = "Submit"
        page.Annotations.Add(submitButton)
        ' Add action
        Dim submitAction = New SubmitFormAction(New Uri("http://login.live.com"))
        submitAction.SubmitFormat = SubmitDataFormat.HTML
        submitAction.SubmitMethod = SubmitMethod.Get
        submitAction.Fields.Add(editBox)
        submitAction.Fields.Add(checkBox)
        submitButton.OnActivated = submitAction

        ' Add Reset button
        Dim resetButton = New PushButton(120, 120, 80, 25, "butonReset")
        resetButton.Caption = "Reset"
        page.Annotations.Add(resetButton)
        ' Add action
        Dim resetAction = New ResetFormAction()
        resetAction.Fields.Add(editBox)
        resetAction.Fields.Add(checkBox)
        resetButton.OnActivated = resetAction

        ' 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