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

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

printable version:
ByteScout-PDF-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 and ByteScout PDF Suite

Learning is essential in computer world and the tutorial below will demonstrate how to create submit form action in pdf with pdf sdk in VB.NET

Sample source code below will display you how to manage a complex task like create submit form action in pdf with pdf sdk in VB.NET. ByteScout PDF Suite is the bundle that provides six different SDK libraries to work with PDF from generating rich PDF reports to extracting data from PDF documents and converting them to HTML. This bundle includes PDF (Generator) SDK, PDF Renderer SDK, PDF Extractor SDK, PDF to HTML SDK, PDF Viewer SDK and PDF Generator SDK for Javascript and you can use it to create submit form action in pdf with pdf sdk with VB.NET.

These VB.NET code samples for VB.NET guide developers to speed up coding of the application when using ByteScout PDF Suite. Follow the instructions from scratch to work and copy the VB.NET code. Enjoy writing a code with ready-to-use sample VB.NET codes.

You can download free trial version of ByteScout PDF Suite from our website to see and try many others source code samples for VB.NET.

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