Discussion :

[belfaigore]

Bonjour,

La methode suivante me permet de lister le nom des fonts installées dans le system, mais j'ai besoin pour pouvoir les charger dans un composant (iText), et par conséquent de connaitre leur fichier respectif (.ttf)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
''' <summary>
    ''' Permet de recupérer le dictionnaire des polices installées sur le system
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function GetFontsList() As Dictionary(Of String, System.Drawing.FontFamily)
        GetFontsList = Nothing
 
        Dim Fonts As New System.Drawing.Text.InstalledFontCollection()
        Dim Family() As System.Drawing.FontFamily = Fonts.Families
        Dim Dico As New Dictionary(Of String, System.Drawing.FontFamily)
 
        For i As Integer = Family.GetLowerBound(0) To Family.GetUpperBound(0)
            Dico.Add(Family(i).Name, Family(i))
        Next
        Family = Nothing
        Fonts = Nothing
 
        Return Dico
 
    End Function

Quelqu'un sait-il comment faire ?

[belfaigore]

Je n'est pas trouvé d'autre moyen que de lire dans la base de registre : HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts ou alors de lister les fichiers présent dans le dossier C:\WINDOWS\Fonts. D'ailleur je ne sais pas si il est possible de recupérer ce chemin à l'aide d'une variable d'environnement, ou d'une variable VS2005 ?