5/5 (14 avis)
Vue 4 852 fois - Téléchargée 419 fois
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
23 août 2006 à 17:04
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
27 mai 2005 à 22:55
19 août 2003 à 19:32
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 !
19 août 2003 à 14:58
5 août 2003 à 12:52
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.