Discussion :

[meehan]

Bonjour,

Je suis dans l'impasse totale, malgré mes recherches ici et sur google je n'arrive pas a faire installer une police de caractère en code VB.

J'utilise visual studio 2013 en VB.NET

Ma police "digital.ttf" est inclu dans les ressources du programme.

Code :

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

1
2
3
4
5
6
7
8
        Dim cheminFichier As String = "C:\Windows\Fonts\digital.ttf"
        Dim nomdir As String = "C:\Windows\Fonts\"
 
        If My.Computer.FileSystem.FileExists(cheminFichier) Then
            MsgBox("Police déjà installée " & cheminFichier)
        Else
            'ici ça coince je sais pas quoi mettre
        End If

Je contrôle bien avant toute installation si elle existe déjà sur l'ordinateur

Mais me manque la commande d'installation ligne 7

Autre question (j'avoue ne pas avoir encore cherché) est-ce que sur tous les systèmes windows leur fonts sont installées dans le dossier c:\windows\fonts ?

Merci pour le coup de pouce

[wallace1]

Bonjour,

--> Premièrement tu dois paramétrer ton projet de sorte à ce qu'il possède une élévation de privilèges, il y a des exemples sur le forum :

Code :

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

<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />

Terme à rechercher : fichier Manifest

--> Ensuite et bien tu dois copier le nouveau fonts dans le répertoire des Fonts par défaut de Windows (ton chemin est correct)

--> Enfin n'oublies pas de renseigner la base de registre pour indiquer au système les propriétés du Font qui a été installé :

Code :

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

1
2
3
4
5
 
Using key As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts")
    key.SetValue("Description du Font", "fontname.tff")
    key.close()
End Using

---> Une autre soliton plus propre et plus rapide consisterait à utiliser du PInvoke :

http://stackoverflow.com/questions/1...-using-c-sharp

A+

[meehan]

Bonjour wallace1 et merci pour ton aide

La modif du fichier Manifest c'est fait
Copier mon fichier font (digital.ttf) dans C:\Windows\Fonts\ c'est fait aussi
Ajouter la clé dans la base de registre c'est fait aussi

Seulement la police ne s'installe pas, je ne fait que copier le fichier

Édit: en redémarrant l'ordinateur, la police est bien prise en compte,

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
        Dim cheminFichier As String = "C:\Windows\Fonts\digital.ttf"
        Dim nom = Environment.CurrentDirectory & "\Resources\Polices\digital-7.ttf"
 
        If My.Computer.FileSystem.FileExists(cheminFichier) Then
            MsgBox("ok")
        Else
 
            System.IO.File.Copy(nom, cheminFichier)
 
            'registre
            Using key As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts")
                key.SetValue("Digital-7 (TrueType)", "digital.ttf")
                key.Close()
            End Using
 
        End If

Possibilité de faire quelque chose sans redémarrer?

[wallace1]

Possibilité de faire quelque chose sans redémarrer?

As-tu simplement essayés avec du PInvoke ????

[meehan]

---> Une autre soliton plus propre et plus rapide consisterait à utiliser du PInvoke :

D'où cette ligne écrite en gras

As-tu simplement essayés avec du PInvoke ????

Non je n'ai pas essayé, je me suis entêté sur la 1ère solution.

Je vais essayer d'adapter ça

[meehan]

Re,

Je n'arrive a rien avec ton lien, en plus c'est du C#