Ce servir d'une fontes de caractere non installer dans le pc
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
- Ca peut servir mot le plus long ✓ - Forum VB.NET
- "Usebb installer" - Forum VB.NET
- Ca peut servir anagramme - Forum C++ & C++ .NET
- Parcourir une chaine de caractère en python ✓ - Forum Python
- Installer application c# sur d'autre pc - Forum C# / .NET
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.