PDF generation with Visual Basic .NET

The example will show how you can use the COM interface of our PDF Maker with the .NET Framework for PDF generation. In the code example, we use VB.NET as the programming language. However, the example can be easily abstracted to C# or even ASP.NET web applications.

The use of the component in the example also shows the exemplary setting of PDF setting options using the PDF Setting functions of the component and the actual PDF conversion of the input file via the PDF conversion function convertToPDF.

The return code of the PDF engine is then output in a text box. Using the return code, the developer knows exactly when and if the PDF generation has been completed successfully, and can respond flexibly to this program-programmatically.

The code sample below is available for download at the bottom of the page.

Source text extract of the source code example (VB.NET)

  1. Public Class frmSevenPDFCOMClient
  2.  
  3.     Private Sub btnSelectFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelectFile.Click
  4.         Dim strDatei As String
  5.  
  6.         'Select a File that should be convert to PDF here
  7.         With OpenFileDialog1
  8.  
  9.             .FilterIndex = 1
  10.  
  11.             If .ShowDialog() = Windows.Forms.DialogResult.OK Then
  12.                 strDatei = .FileName
  13.                 txtFile.Text = strDatei
  14.             End If
  15.  
  16.         End With
  17.  
  18.     End Sub
  19.  
  20.     Private Sub btnConvertToPDF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvertToPDF.Click
  21.         Dim SevenPDFComObj As New SevenPDFComObj.SevenPDFObjConverter
  22.  
  23.         'COM DLL INVOKE CALL TO SevenPDFComObj.dll
  24.         'Note that you must register the ActiveX DLL first
  25.         'Use [regsvr32 "FULLPATH TO DLL FOLDER\SevenPDFComObj.dll"]
  26.         'Pleas Notice: You need administrative privileges for that!
  27.  
  28.         Try
  29.             txtReturnCode.Text = ""
  30.  
  31.             '******* INITIALIZATION *********
  32.  
  33.             SevenPDFComObj.Init()
  34.             'SevenPDFComObj.UnlockKey ("INSERT LICENSEKEY")
  35.  
  36.             '********************************
  37.  
  38.             '****** Customize some PDF Settings *******
  39.             'Notice: PDF encryption works only in registered version
  40.             '******************************************
  41.  
  42.             SevenPDFComObj.setExportNotes(0)
  43.             SevenPDFComObj.setExportNotesPages(0)
  44.             SevenPDFComObj.setExportBookmarks(0)
  45.  
  46.             'Set PDF Security Options
  47.             'SevenPDFComObj.setEncryptFile (1)
  48.             'SevenPDFComObj.setPermissionPassword ("test1232")
  49.             'SevenPDFComObj.setRestrictPermissions (1)
  50.             'SevenPDFComObj.setChanges (0)
  51.             'SevenPDFComObj.setPrinting (1)
  52.             'SevenPDFComObj.setEnableCopyingOfContent (0)
  53.             'SevenPDFComObj.setEnableTextAccessForAccessibilityTools (0)
  54.  
  55.             'Make the Conversion
  56.             txtReturnCode.Text = SevenPDFComObj.convertToPdf(txtFile.Text, txtPDF.Text, 0).ToString()
  57.  
  58.         Catch ex As Exception
  59.             MsgBox("Error occurs: " & ex.Message)
  60.         End Try
  61.  
  62.     End Sub
  63.  
  64.     Private Sub btnSelectPDF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelectPDF.Click
  65.         Dim strDatei As String
  66.  
  67.         'Select a File that should be convert to PDF here
  68.         With SaveFileDialog1
  69.  
  70.             .FilterIndex = 1
  71.  
  72.             If .ShowDialog() = Windows.Forms.DialogResult.OK Then
  73.                 strDatei = .FileName
  74.                 txtPDF.Text = strDatei
  75.             End If
  76.  
  77.         End With
  78.     End Sub
  79. End Class

Downloads

Attachement Size
Download the code sample 129.23 KB
LiveZilla Live Chat Software
Top