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

5/5 (14 avis)

Vue 4 852 fois - Téléchargée 419 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
colin005
Messages postés
9
Date d'inscription
samedi 9 avril 2005
Statut
Membre
Dernière intervention
23 août 2006

23 août 2006 à 17:04
pourquoi tu met auten de variable, on s'y perd ??
par exemple :
m% = MsgBox("Police non charger")

sa peut être simplement
MsgBox "Police non charger"

il suffit d'enlever les parentéses pour ne pas avoir à mettre de "="

si non prog génial et ultra utile !

Colin Gille
ritchy01
Messages postés
41
Date d'inscription
mardi 16 septembre 2003
Statut
Membre
Dernière intervention
20 décembre 2009

27 mai 2005 à 22:55
Super pratique ton petit code, ca mérite un 10 parce qu'il rempli pleinement son role !
cs_RJLFRANCE
Messages postés
36
Date d'inscription
samedi 17 août 2002
Statut
Membre
Dernière intervention
16 septembre 2005

19 août 2003 à 19:32
Ne pas oublier aussi:
que si vous incluez le fichier ttf (fonte) dans l'empaquetage l'intallation du prog installera directement le ttf dans le repertoire font de windows etla mettra en fonction.
Ce bout de prog , sert uniquement a ne pas laisser votre police d'ecriture a l'utilisation de tout le monde, et votre prog peut fonctionner ainsi sans installation (si bien sur, vous avez les ddls de vb sur le micro), quoi que il existe un prog qui compile votre programme vb avec toutes les dll necessaire !
NHenry
Messages postés
14927
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
18 mai 2022
162
19 août 2003 à 14:58
Génial, je n'en ai pas lutilité tout de suite mais tres bien continu.
lolo32
Messages postés
36
Date d'inscription
mercredi 13 février 2002
Statut
Membre
Dernière intervention
6 juin 2006

5 août 2003 à 12:52
Oui, mais il ne suffit pas de copier la police avec un programme, il faut aussi modifier la base de registre, c'est ce qu fait Windows quand tu fais un copier / coller de police dans l'explorateur Windows.
Afficher les 14 commentaires

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.