Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Visual Basic Installer une police de caractères

Installer une police de caractères

3 réponses
Avatar
Jean-Francois.Vassard
Bonjour,

Sauriez-vous comment on peut installer/désinstaller une police ttf dans le
système, à partir de VB5/6 ?

Merci,

JF
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ng
Salut,

Oui c'est très simple :

'//Déclaration (dans un module par exemple) :
Public Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA"
(ByVal lpFileName As String) As Long
Public Declare Function RemoveFontResource Lib "gdi32" Alias
"RemoveFontResourceA" (ByVal lpFileName As String) As Long

'//Utilisation :

'//Ajout
Call AddFontResource("Ma police.ttf")

'//Retrait
Call RemoveFontResource("Ma police.ttf")


--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

Jean-Francois.Vassard wrote:
Bonjour,

Sauriez-vous comment on peut installer/désinstaller une police ttf
dans le système, à partir de VB5/6 ?

Merci,

JF


Avatar
Jean-Francois.Vassard
Merci beaucoup ng,

Je suppose que "Ma police.ttf" indique un chemin. Cette police est-elle
automatiquement copiée dans Windows/Fonts ou est-il nécessaire de la copier
au préalable avant d'appeler l'API ?

JF


"ng" a écrit dans le message de
news:%
Salut,

Oui c'est très simple :

'//Déclaration (dans un module par exemple) :
Public Declare Function AddFontResource Lib "gdi32" Alias


"AddFontResourceA"
(ByVal lpFileName As String) As Long
Public Declare Function RemoveFontResource Lib "gdi32" Alias
"RemoveFontResourceA" (ByVal lpFileName As String) As Long

'//Utilisation :

'//Ajout
Call AddFontResource("Ma police.ttf")

'//Retrait
Call RemoveFontResource("Ma police.ttf")


--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

Jean-Francois.Vassard wrote:
> Bonjour,
>
> Sauriez-vous comment on peut installer/désinstaller une police ttf
> dans le système, à partir de VB5/6 ?
>
> Merci,
>
> JF




Avatar
ng
Salut,

Oui c'est le chemin.
Oui normalement c'est automatiquement copié, mais fais quand même un test
pour vérifier j'ai un doute du coup :)

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

Jean-Francois.Vassard wrote:
Merci beaucoup ng,

Je suppose que "Ma police.ttf" indique un chemin. Cette police
est-elle automatiquement copiée dans Windows/Fonts ou est-il
nécessaire de la copier au préalable avant d'appeler l'API ?

JF


"ng" a écrit dans le message de
news:%
Salut,

Oui c'est très simple :

'//Déclaration (dans un module par exemple) :
Public Declare Function AddFontResource Lib "gdi32" Alias
"AddFontResourceA" (ByVal lpFileName As String) As Long
Public Declare Function RemoveFontResource Lib "gdi32" Alias
"RemoveFontResourceA" (ByVal lpFileName As String) As Long

'//Utilisation :

'//Ajout
Call AddFontResource("Ma police.ttf")

'//Retrait
Call RemoveFontResource("Ma police.ttf")


--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

Jean-Francois.Vassard wrote:
Bonjour,

Sauriez-vous comment on peut installer/désinstaller une police ttf
dans le système, à partir de VB5/6 ?

Merci,

JF