Ce servir d'une fontes de caractere non installer dans le pc
Soyez le premier à donner votre avis sur cette source.
Vue 4 745 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
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
- ASM : Emission-réception de caractères par liaison série sur pc - Guide
- Sql server aucune connexion n'a pu être établie car l'ordinateur cible l’a expressément refusée - Forum - SQL
- Sql server - forcer un résultat entier sur un nombre de caractères donnés - Codes sources - SQL (Trucs & Astuces)
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
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
-
14770
- Date d'inscription
- vendredi 14 mars 2003
- Statut
- Modérateur
- Dernière intervention
- 27 février 2021
151Vous 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.