Discussion :

[mikadev]

Salut je cherche a ajouter une police dans mon appli Windows Forms de manière a ce quelle soit embarqué avec l'application, je l'ai ajouté dans les ressources comment faire pour l'utiliser ?

[wallace1]

Bonjour,

ADD AND USE FONT C# :

http://www.codeproject.com/Articles/...-Installing-It


USING FONT FROM RESOURCES C# :

http://www.codeproject.com/Articles/...t-To-Resources



A+

[mikadev]

Salut,

Merci pour les liens mais c'est pour du C# et moi j'utilise VB je pense que ça doit pas être très différent mais je n'arrive pas a mettre ca en place j'ai essayé ça : http://zerosandtheone.com/blogs/vb/a...plication.aspx et çà ne fonctionne pas non plus

n'aurais tu pas un exemple qui fonctionne merci

[rv26t]

Bonjour,

En fouillant sur le net j'ai réusi à faire ceci

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
22
23
    Private fntCollect As System.Drawing.Text.PrivateFontCollection = New System.Drawing.Text.PrivateFontCollection()
    Private Sub FontToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles FontToolStripMenuItem.Click
        'Label3.Font = GetFont()
        LoadFontFromResource()
        Label3.Font = New Font(fntCollect.Families(0), 12)
    End Sub
    ' depuis une ressource (ressource nommée times - pour times new roman)
    Private Sub LoadFontFromResource()
        Try
            Dim fontMemPointer As IntPtr = Marshal.AllocCoTaskMem(My.Resources.times.Length)
            Marshal.Copy(My.Resources.times, 0, fontMemPointer, My.Resources.times.Length)
            fntCollect.AddMemoryFont(fontMemPointer, My.Resources.times.Length)
            Marshal.FreeCoTaskMem(fontMemPointer)
        Catch ex As Exception
 
        End Try
    End Sub
    ' depuis un fichier
    Function GetFont() As Font
        Dim privateFonts As System.Drawing.Text.PrivateFontCollection = New System.Drawing.Text.PrivateFontCollection()
        privateFonts.AddFontFile("C:\Windows\Fonts\Times.ttf")
        Return New Font(privateFonts.Families(0), 12)
    End Function

Fonctionne sous vista.

[mikadev]

Merci pour ta réponse mais ça ne fonctionne pas seul la méthode getfont() fonctionne mais ça na pas de grand intérêt puis-quelle ce sert d'une police disponible sur la machine.
Je te montre mon code :

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
22
23
24
25
26
 Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
 
        ' Dim cac As String = toto.AbsolutePath & "./resources/#GoodDog"
        LoadFontFromResource()
        'Me.Label1.Font = New System.Drawing.Font(cac, 180.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Label1.Font =  New Font(fntCollect.Families(0), 120)
    End Sub
    Private fntCollect As System.Drawing.Text.PrivateFontCollection = New System.Drawing.Text.PrivateFontCollection()
 
    ' depuis une ressource (ressource nommée times - pour times new roman)
    Private Sub LoadFontFromResource()
        Try
            Dim fontMemPointer As IntPtr = Marshal.AllocCoTaskMem(My.Resources.ImpactLabelReversed.Length)
            Marshal.Copy(My.Resources.ImpactLabelReversed, 0, fontMemPointer, My.Resources.ImpactLabelReversed.Length)
            fntCollect.AddMemoryFont(fontMemPointer, My.Resources.ImpactLabelReversed.Length)
            Marshal.FreeCoTaskMem(fontMemPointer)
        Catch ex As Exception
 
        End Try
    End Sub
    ' depuis un fichier
    Function GetFont() As System.Drawing.Font
        Dim privateFonts As System.Drawing.Text.PrivateFontCollection = New System.Drawing.Text.PrivateFontCollection()
        privateFonts.AddFontFile("C:\Users\utilisateur\Documents\Visual Studio 2013\Projects\Font\Font\Resources\ImpactLabelReversed.ttf")
        Return New System.Drawing.Font(privateFonts.Families(0), 12)
    End Function

[wallace1]

Force est de constaté que bon nombre de débutants foncent tête baissée dans un projet sans même avoir pris le tps d apprendre les spécificité du langage dotnet !

Exemples en c# peut etre mais il existe des convertisseurs dotnet et notamment c#<-->vbnet

C'est de l'IL le dotnet et il possède cette faculté de conversion.

A+

[rv26t]

Merci pour ta réponse mais ça ne fonctionne pas seul la méthode getfont() fonctionne mais ça na pas de grand intérêt puis-quelle ce sert d'une police disponible sur la machine.

L'intérêt est que tu demandais la traduction des liens qui avais été présentés, ou un équivalent. J'ai donc présenté les 2.
Ensuite je ne savais pas quelle police tu utilises, j'ai donc fait un exemple avec une police existante afin de pouvoir tester. (tu peux aussi livrer ta police avec ton appli)
Ces exemples sont des pistes de travail.

Fonctionne sous vista.

Sous quel environnement developpes tu ?
Et qu'est ce qui ne fonctionne pas ? (Je ne vois pas ta machine, je ne peux donc pas deviner.)
Comment as-tu chargé ta police dans les ressources du projet ? (j'ai utilisé ajouter un fichier et choisi times.ttf pour l'exemple qui est la polise times new roman pour test
Ou cela bloque-t-il ?
Quel est le message d'erreur ?
...