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
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
- Ce servir d'une fontes de caractere non installer dans le pc
- Delphi / Pascal : Definir sauvegarder et restaurer les parametres d'une fonte de caractere - CodeS S - Guide
- SQL : Sql server - comparer des chaînes de caractères avec ou sans accents / majuscule - Guide
- Sql server aucune connexion n'a pu être établie car l'ordinateur cible l’a expressément refusée - Forum - SQL
- ASM : Emission-réception de caractères par liaison série sur pc - Guide
- Pb de connexion entre client et serveur - Forum - VB.NET
Commentaires
- Messages postés
- 296
- Date d'inscription
- lundi 2 septembre 2002
- Statut
- Membre
- Dernière intervention
- 28 janvier 2008
-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|
- Messages postés
- 36
- Date d'inscription
- samedi 17 août 2002
- Statut
- Membre
- Dernière intervention
- 16 septembre 2005
-pendant la session ouverte.
Au prochain redemarrage elle n'est plus dispo, il faut relancer l'apli pour retrouver la fonte.
- Messages postés
- 296
- Date d'inscription
- lundi 2 septembre 2002
- Statut
- Membre
- Dernière intervention
- 28 janvier 2008
-- Messages postés
- 36
- Date d'inscription
- samedi 17 août 2002
- Statut
- Membre
- Dernière intervention
- 16 septembre 2005
-Faut essayer!
- Messages postés
- 36
- Date d'inscription
- samedi 17 août 2002
- Statut
- Membre
- Dernière intervention
- 16 septembre 2005
-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.