Ecrire dans tous les sens.....
Description
Ceci est la reponse a une demande qui m'a ete faite , il s'agit d'ecrire , autrement qu'horizontalement.
l'angle est parametrable......
Je recupere le font d'origine , je modifie le parametre rotation, et je reinjecte le font au DC.
l'angle est parametrable......
Je recupere le font d'origine , je modifie le parametre rotation, et je reinjecte le font au DC.
Source / Exemple :
Public Sub TournerTexte(DC As Long, Angle As Integer)
'On crée une police , que l'on associe au Device Context passé en parametre
'par la suite , ce sera cette police qui sera utilisée pour toute ecriture sur ce DC
Dim Police As LOGFONT
Dim HPolice As Long
'pour recuperer la police utilisée.
HPolice = SelectObject(DC, CreateFontIndirect(Police))
'Obtient un LOGFONT , a partir de son handle
Call GetObject(HPolice, Len(Police), Police)
' on applique la rotation
Police.lfEscapement = -Angle * 10
'on associe le font au DC
Call SelectObject(DC, CreateFontIndirect(Police))
End Sub
Codes Sources
A voir également
- Ecrire dans tous les sens.....
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Javascript écrire dans un fichier ✓ - Forum Javascript / DHTML
- Image sens interdit ✓ - Forum Javascript / DHTML
- Écrire dans un fichier - Forum Javascript / DHTML
- Comment ecrire sur canva ✓ - Forum Delphi / Pascal
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.