ByteScout Premium Suite – VB.NET – Create submit form action in pdf with pdf sdk

Home
/
Articles
/
ByteScout Premium Suite – VB.NET – Create submit form action in pdf with pdf sdk

printable version:
ByteScout-Premium-Suite-VB-NET-Create-submit-form-action-in-pdf-with-pdf-sdk.pdf

How to create submit form action in pdf with pdf sdk in VB.NET using ByteScout Premium Suite

Learn to code in VB.NET to create submit form action in pdf with pdf sdk with this step-by-step tutorial

Quickly learn how to create submit form action in pdf with pdf sdk in VB.NET with this sample source code. ByteScout Premium Suite can create submit form action in pdf with pdf sdk. It can be applied from VB.NET. ByteScout Premium Suite is the set that includes 12 SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording.

The following code snippet for ByteScout Premium Suite works best when you need to quickly create submit form action in pdf with pdf sdk in your VB.NET application. IF you want to implement the functionality, just copy and paste this code for VB.NET below into your code editor with your app, compile and run your application. Enjoy writing a code with ready-to-use sample codes in VB.NET.

Trial version of ByteScout Premium Suite is available for free. Source code samples are included to help you with your VB.NET app.

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