1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VB.NET

Editer fichier PDF [Résolu]

Signaler
Messages postés
3
Date d'inscription
samedi 26 septembre 2020
Statut
Membre
Dernière intervention
28 septembre 2020
 -
Messages postés
14916
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
25 octobre 2020
 -
Bonsoir à tous
J'aimerais savoir s'il est possible d’éditer un fichier PDF existant avec VB.net
Merci à tous pour votre aide
Afficher la suite

5 réponses

Réponse 1 / 5
Messages postés
14916
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
25 octobre 2020
 447
Bonsoir

https://lmqt.fyi/?q=write+pdf+dot+net
Réponse 2 / 5
Messages postés
14916
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
25 octobre 2020
 447
VB.Net c'est du C# déguisé en VB.

Rapidement on trouve plein d'exemple en C#,
https://lite.qwant.com/?q=itextsharp+edit+pdf&client=opensearch
il suffit alors de les convertir
https://lite.qwant.com/?q=vb+to+c%23&t=web
Réponse 3 / 5
Messages postés
3
Date d'inscription
samedi 26 septembre 2020
Statut
Membre
Dernière intervention
28 septembre 2020
Merci Whismeril,

Maintenant avec Itextsharp et vb.net j'arrive a créer des pdf voici le code.: 

Imports iTextSharp.text.pdf
Imports iTextSharp.text
Imports System.IO
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim pdfDoc As New Document()
        Dim pdfWrite As PdfWriter = PdfWriter.GetInstance(pdfDoc, New FileStream("Test.pdf", FileMode.Create))
        pdfDoc.Open()
        pdfDoc.Add(New Paragraph("Hello World"))
        pdfDoc.Close()
    End Sub
End Class


Par contre j'ai cherché mais je n'arrive pas a trouver comment modifier un pdf existant
avec iTextsharp

Merci pour votre aide
Réponse 4 / 5
Messages postés
3
Date d'inscription
samedi 26 septembre 2020
Statut
Membre
Dernière intervention
28 septembre 2020
Merci encore pour votre aide,je partage le code après la conversion à partir du c# vers le vb.net pour ajouter du texte a n'importe quel pdf. 

Dim oldFile As String = "oldfile.pdf"
        Dim newFile As String = "newfile.pdf"

        ' open the reader
        Dim reader As PdfReader = New PdfReader(oldFile)
        Dim size As Rectangle = reader.GetPageSizeWithRotation(1)
        Dim document As Document = New Document(size)

        ' open the writer
        Dim fs As FileStream = New FileStream(newFile, FileMode.Create, FileAccess.Write)
        Dim writer As PdfWriter = PdfWriter.GetInstance(document, fs)
        document.Open()

        ' the pdf content
        Dim cb As PdfContentByte = writer.DirectContent

        ' select the font properties
        Dim bf As BaseFont = BaseFont.CreateFont(BaseFont.HELVETICA, BaseFont.CP1252, BaseFont.NOT_EMBEDDED)
        cb.SetColorFill(BaseColor.DARK_GRAY)
        cb.SetFontAndSize(bf, 10)

        ' write the text in the pdf content
        cb.BeginText()
        Dim text As String = "Some blablablabla...."
        ' put the alignment and coordinates here
        cb.ShowTextAligned(1, text, 520, 640, 0)
        cb.EndText()

        ' create the new page and add it to the pdf
        Dim page As PdfImportedPage = writer.GetImportedPage(reader, 1)
        cb.AddTemplate(page, 0, 0)

        ' close the streams and voilá the file should be changed :)
        document.Close()
        fs.Close()
        writer.Close()
        reader.Close()
Réponse 5 / 5
Messages postés
14916
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
25 octobre 2020
 447
De rien
Répondre Posez votre question