Ce servir d'une fontes de caractere non installer dans le pc

Soyez le premier à donner votre avis sur cette source.

Vue 4 672 fois - Téléchargée 393 fois

Description

Se bout de code permet de se servir d'une police de caractere
non implanter dans l'ordinateur

Source / Exemple :


Private Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
 
'Se bout de code permet de se servire d'une police de caractere
'non implanter dans l'ordinateur
'RJLFRANCE 2003

Private Sub Form_Load()
npolice% = 0
ttf$ = App.Path + "\" + "Smarc.ttf"
npolice% = AddFontResource(ttf$)
If npolice% > 0 Then
v = SendMessage(hwnd_broacast, wm_fontchange, 0, 0)
Else
m% = MsgBox("Police non charger")
End If
Label1.FontName = "smartie caps" 'le nom réel de la police
' on le trouve avec un clic droit sur la fonte dans windows
Label1.FontSize = "20" 'la taille
End Sub

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_olid
Messages postés
296
Date d'inscription
lundi 2 septembre 2002
Statut
Membre
Dernière intervention
28 janvier 2008
-
Je connaissais la fonction API "AddFontResource" de nom, mais javais pô de docs....

Mes tites questions pour éluder ma tite lanterne:

Quand tu utilize cette fonction, la police est copiée dans le dossier Fonts de Windows ? ou alors elle reste à son emplacement mais devient disponible ?

Et, elle est disponible uniquement pour l'appli quia fait le "AddFontResource", ou pour tout les programmes ? Au redemarrage, elle sera toujours disponible, ou faut-il refaire le "AddFontResource" ?

Merzi pour ta reponse.....ya pô urgence ;o)
NB: Dézolé pour la question en double...un admin va surement detruire lautre source en double :o|
cs_RJLFRANCE
Messages postés
36
Date d'inscription
samedi 17 août 2002
Statut
Membre
Dernière intervention
16 septembre 2005
-
Cette fonction charge la fontes pour tout programme windows
pendant la session ouverte.
Au prochain redemarrage elle n'est plus dispo, il faut relancer l'apli pour retrouver la fonte.
cs_olid
Messages postés
296
Date d'inscription
lundi 2 septembre 2002
Statut
Membre
Dernière intervention
28 janvier 2008
-
Et si on la copie dans le dossier Fonts avant ? :op
cs_RJLFRANCE
Messages postés
36
Date d'inscription
samedi 17 août 2002
Statut
Membre
Dernière intervention
16 septembre 2005
-
je pense que sa devrais marcher !
Faut essayer!
cs_RJLFRANCE
Messages postés
36
Date d'inscription
samedi 17 août 2002
Statut
Membre
Dernière intervention
16 septembre 2005
-
je pense que sa devrais marcher !
Faut essayer!

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.