syntaxe de ColumnText.showTextAligned()

Bonjour tout le monde :) ,
j'ai passé des jours à chercher la syntaxe de ColumnText.showTextAligned() afin d'afficher un texte de droite à gauche , j'ai donc décidé de le mettre dans ce forum dans le but de faire bénéficier d'autres qui auront besoin :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
        'Création d'un document
        Dim myDocument = New Document()
        'Ouverture d'un flux pour l'écriture sur le document
        Dim fileS As New FileStream("C:\Documents and Settings\me\Bureau\fichier.pdf", FileMode.Create)
        Dim writer = iTextSharp.text.pdf.PdfWriter.GetInstance(myDocument, fileS)
        'Ouverture du document
        myDocument.Open()
        Dim cb As PdfContentByte = writer.DirectContent
     
        'Ajout de la police
        Dim bf = BaseFont.CreateFont("c:\\windows\\fonts\\times.ttf", BaseFont.IDENTITY_H, True)
        Dim f2 As New iTextSharp.text.Font(bf, 24, iTextSharp.text.Font.NORMAL, Nothing)
        'insertion texte arabe 
 
        ColumnText.ShowTextAligned(cb, PdfWriter.RUN_DIRECTION_RTL, new Phrase("غقغقغف", f2), 100, 100, 50,PdfWriter.RUN_DIRECTION_RTL,0)
     'fermerture du document et du flux
        myDocument.Close()
        fileS.Close()

enjoy :D !