Bonjour,

je suis actuellement en train de m'essayer à la création de PDF aec iText en VB.Net mais voilà je souhaite créer un tableau à deux colonnes ou des fois il n'y a qu'une seul cellule et des fois deux cellules.

j'essai donc d'utiliser "setColspan(int i)" qui est sensé être accessible depuis un objet "PdfPCell" hors pas je ne l'ai pas. (Code ci desous)

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("C:\Users\stempi\Desktop\Test.pdf", FileMode.Create))
 
    pdfDoc.Open()
 
    Dim EAN128 As New Barcode128
 
    EAN128.CodeType = Barcode128.CODE128
    EAN128.Code = "(00)030328417153500179"
    EAN128.GenerateChecksum = True
 
    'pdfDoc.Add(EAN128.CreateImageWithBarcode(pdfWrite.DirectContent, Nothing, Nothing))
 
    Dim img As Image = EAN128.CreateImageWithBarcode(pdfWrite.DirectContent, Nothing, Nothing)
 
    Dim myTable As New PdfPTable(2)
 
    Dim Cell As PdfPCell
 
    Cell = New PdfPCell(New Phrase("Celule colspan"))
 
    myTable.AddCell("0.1")
    myTable.AddCell("1.0")
    myTable.AddCell(img)
    myTable.AddCell("1.1")
 
    pdfDoc.Add(myTable)
 
    'pdfDoc.Add(Barcode.CreateImageWithBarcode(pdfWrite.DirectContent, Nothing, Nothing))
 
    'pdfDoc.Add(New Paragraph("Test Page 1"))
    'pdfDoc.NewPage()
    'pdfDoc.Add(New Paragraph("Test Page 2"))
    pdfDoc.Close()
 
End Sub

De plus voici mes imports au cas ou :

Imports iTextSharp.text
Imports iTextSharp.text.pdf
Imports System.IO

Si quelqu'un sait pourquoi, merci ! 

Ps : Le même message à été mis dans la section "Autre langages", j'ai mis ce même sujet en résolu pour le reposter ici qui est plus adéquate 

-
Edité par Drolz 10 novembre 2017 à 10:25:23

Bonjour,

https://sourceforge.net/p/itextsharp/itextsharp/ci/3b4ece084e4bf0c0fc47de5318a886d283cf0a8a/tree/src/core/iTextSharp/text/pdf/PdfPCell.cs

ligne 561

Bonjour,

tout d'abord merci pour ta réponse, je me suis donc renseigner sur get et set en VB.NET j'arrive donc a avoir le résultat souhaité merci !

je voulais juste savoir si du coup la méthode que j'ai utilisé était bonne ou je pourrai faire mieux (plus propre ?) :

Dim Cell As PdfPCell

    Public Property SetColspan() As Integer
        Get
            Return Cell.Colspan
        End Get
        Set(ByVal value As Integer)
            Cell.Colspan = value
        End Set
    End Property

    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("C:\Users\stempi\Desktop\Test.pdf", FileMode.Create))

        pdfDoc.Open()

        Dim EAN128 As New Barcode128

        EAN128.CodeType = Barcode128.CODE128
        EAN128.Code = "(00)030328417153500179"
        EAN128.GenerateChecksum = True

        'pdfDoc.Add(EAN128.CreateImageWithBarcode(pdfWrite.DirectContent, Nothing, Nothing))

        Dim img As Image = EAN128.CreateImageWithBarcode(pdfWrite.DirectContent, Nothing, Nothing)

        Dim myTable As New PdfPTable(2)

        Cell = New PdfPCell(New Phrase("Celule colspan"))
        SetColspan = 2
        myTable.AddCell(Cell)

        myTable.AddCell("0.1")
        myTable.AddCell("1.0")
        myTable.AddCell(img)
        myTable.AddCell("1.1")

        pdfDoc.Add(myTable)

        'pdfDoc.Add(Barcode.CreateImageWithBarcode(pdfWrite.DirectContent, Nothing, Nothing))

        'pdfDoc.Add(New Paragraph("Test Page 1"))
        'pdfDoc.NewPage()
        'pdfDoc.Add(New Paragraph("Test Page 2"))
        pdfDoc.Close()

    End Sub

Drolz a écrit:

je voulais juste savoir si du coup la méthode que j'ai utilisé était bonne ou je pourrai faire mieux (plus propre ?) :