Création de PDF avec Visual Basic .NET

L'exemple doit montrer comment vous pouvez utiliser l'interface COM de notre PDF Maker avec le .NET Framework pour la génération de PDF. Nous utilisons VB.NET comme langage de programmation dans l'exemple de code. L'exemple peut facilement être extrait des applications Web C # ou ASP.NET .

L'utilisation du composant dans l'exemple montre le paramétrage exemplaire des options de paramétrage PDF à l'aide des fonctions de paramétrage PDF du composant et la conversion PDF réelle du fichier d'entrée à l'aide de la convertToPDF conversion PDF convertToPDF .

Le code retour du moteur PDF est ensuite sorti dans une zone de texte. Le développeur sait exactement quand et si la création du PDF a été effectuée avec succès via le code retour et peut réagir de manière flexible au programme.

Erreurs d'exécution dues à différentes utilisations des versions .NET

L'exemple VB.NET téléchargeable ici a été créé avec le .NET Framework 3.5. Si, lors de l'exécution de l'exemple de projet, un message apparaît que l'environnement d'exécution d'origine est plus actuel que celui actuellement chargé, vous devez sélectionner la version la plus récente de .NET Framework (par exemple 4.7.2) dans la configuration de projet de notre exemple pour VB.NET. Nettoyez ensuite le projet avant de le recréer ou de le compiler, puis exécutez-le sans erreur. Assurez-vous également que le CPU cible x86 est sélectionné sous les propriétés du projet!

Extrait de l'exemple de code source (VB.NET)

L'exemple de code suivant est disponible au téléchargement en bas de la page.

  1. Classe publique frmSevenPDFCOMClient
  2.  
  3. Poignées Private Sub btnSelectFile_Click btnSelectFile (sender ByVal comme système EventArgs. Object, ByVal e comme système.). Cliquez
  4. Dim strFile As String
  5.  
  6. 'Sélectionnez ici un fichier à convertir en PDF
  7. Avec OpenFileDialog1
  8.  
  9. , FilterIndex = 1
  10.  
  11. Si . ShowDialog ( ) = Windows. Formulaires . DialogResult . OK alors
  12. strfile =. nom du fichier
  13. txtfile. Text = strFile
  14. Fin si
  15.  
  16. Terminez avec
  17.  
  18. End Sub
  19.  
  20. Poignées Private Sub btnConvertToPDF_Click btnConvertToPDF (expéditeur de ByVal comme système EventArgs. objet, en tant que système e ByVal.). Cliquez
  21. Dim SevenPDFComObj comme nouveau SevenPDFComObj. SevenPDFObjConverter
  22.  
  23. «COM DLL INVOKE APPEL À SevenPDFComObj.dll
  24. 'Notez que vous devez d'abord enregistrer la DLL ActiveX
  25. 'Utilisez [regsvr32 "FULLPATH TO DLL FOLDER \ SevenPDFComObj.dll"]
  26. Remarque: vous avez besoin de privilèges administratifs pour cela!
  27.  
  28. essayer
  29. txtReturnCode. Texte = ""
  30.  
  31. «******* INITIALISATION *********
  32.  
  33. SevenPDFComObj. Init ( )
  34. «SevenPDFComObj.UnlockKey (« INSERT LICENSEKEY »)
  35.  
  36. « ********************************
  37.  
  38. '****** Personnalisez certains paramètres PDF *******
  39. 'Remarque: le cryptage PDF ne fonctionne que dans la version enregistrée
  40. « ******************************************
  41.  
  42. SevenPDFComObj. setExportNotes ( 0 )
  43. SevenPDFComObj. setExportNotesPages ( 0 )
  44. SevenPDFComObj. setExportBookmarks ( 0 )
  45.  
  46. 'Définir les options de sécurité PDF
  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. «Faites la conversion
  56. txtReturnCode. Texte = SevenPDFComObj. convertToPdf ( txtFile. Text , txtPDF. Text , 0 ) . ToString ( )
  57.  
  58. Attraper ex comme exception
  59. MsgBox ( "Une erreur se produit:" & ex. Message )
  60. Fin de l' essai
  61.  
  62. End Sub
  63.  
  64. Poignées Private Sub btnSelectPDF_Click btnSelectPDF (expéditeur de ByVal comme système EventArgs. objet, en tant que système e ByVal.). Cliquez
  65. Dim strFile As String
  66.  
  67. 'Sélectionnez ici un fichier à convertir en PDF
  68. Avec SaveFileDialog1
  69.  
  70. , FilterIndex = 1
  71.  
  72. Si . ShowDialog ( ) = Windows. Formulaires . DialogResult . OK alors
  73. strfile =. nom du fichier
  74. txtPDF. Text = strFile
  75. Fin si
  76.  
  77. Terminez avec
  78. End Sub
  79. Fin de classe

Téléchargements

appendice taille
Télécharger l'exemple de code 129,23 KB
LiveZilla Live Chat Software
Top