Program.vb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | Imports Bytescout.PDF ''' <summary> ''' This example demonstrates how to fill PDF form programmatically. ''' </summary> Class Program Shared Sub Main() ' Load PDF form Dim pdfDocument = New Document( "form.pdf" ) pdfDocument.RegistrationName = "demo" pdfDocument.RegistrationKey = "demo" Dim page = pdfDocument.Pages(0) ' Get widget by its name and change value DirectCast (page.Annotations( "editBox1" ), EditBox).Text = "Test 123" DirectCast (page.Annotations( "editBox2" ), EditBox).Text = "Test 456" DirectCast (page.Annotations( "checkBox1" ), CheckBox).Checked = True ' 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 |
Click here to get your Free Trial version of the SDK
also available as: