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

Soyez le premier à donner votre avis sur cette source.

Vue 4 707 fois - Téléchargée 402 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

Messages postés
9
Date d'inscription
samedi 9 avril 2005
Statut
Membre
Dernière intervention
23 août 2006

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
Messages postés
42
Date d'inscription
mardi 16 septembre 2003
Statut
Membre
Dernière intervention
20 décembre 2009

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

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 !
Messages postés
14673
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
28 juin 2020
143
Génial, je n'en ai pas lutilité tout de suite mais tres bien continu.
Messages postés
36
Date d'inscription
mercredi 13 février 2002
Statut
Membre
Dernière intervention
6 juin 2006

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.