Discussion :

[Miska59]

Bonjour,

j'arrive pas à afficher les fonts dans ressources dans un combobox1.



voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
ComboBox1.Items.Add(GetFontRessources)
 
Private Function GetFontRessources() As FontFamily
        For Each MyFont As String In Assembly.GetEntryAssembly().GetManifestResourceNames()
            If MyFont.ToLower.EndsWith(".ttf") Then
                _FontCollection.AddFontFile(MyFont)
            End If
        Next
        Return New FontFamily(_FontCollection.Families(0).Name, _FontCollection)
    End Function

Avez-vous une autre solution pour afficher les fonts dans ressources dans combobox1? merci d'avance

[Miska59]

Bonjour, j'ai trouver la solution pour afficher la liste de fonts dans my.ressources pour afficher dans combobox1.



voici le codes :

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
Private ReadOnly _FontCollection As New PrivateFontCollection()
 
Private Sub GetMyFontRessources(ByVal CB As ComboBox)
        For Each MyFont As String In Assembly.GetEntryAssembly().GetManifestResourceNames
            If MyFont.ToLower.EndsWith(".ttf") Then
                Using fontStream As Stream = Assembly.GetEntryAssembly().GetManifestResourceStream(MyFont)
                    If Not (fontStream Is Nothing) Then
                        Dim data As System.IntPtr = Runtime.InteropServices.Marshal.AllocCoTaskMem(fontStream.Length)
                        Dim fontdata() As Byte = New Byte(fontStream.Length - 1) {}
                        fontStream.Read(fontdata, 0, fontStream.Length)
                        Marshal.Copy(fontdata, 0, data, fontStream.Length)
                        _FontCollection.AddMemoryFont(data, fontStream.Length)
                        fontStream.Close()
                        Marshal.FreeCoTaskMem(data)
                        Dim MyLangue As New FontFamily(_FontCollection.Families.Last.Name, _FontCollection)
                        CB.Items.Add(MyLangue.Name)
                    End If
                End Using
            End If
        Next
    End Sub

Mon problème, quand je choisie le font dans combobox1(voir image en haut). j'arrive à changer le font dans label1 mais pas avec ma liste dans my.ressources. pouvez-vous m'aider à résoudre ce problème? merci