Textes inclinés

Question

Bonjour,
J'ai besoin afficher sur un PictureBox des textes inclinés. Depuis longtemps j'utilise la méthode TextOut de GDI32 qui fonctionne bien au niveau de l'affichage proprement dit mais qui semble parfois perturber la mémoire graphique des machines.
C'est pourquoi je souhaiterais m'orienter plutôt vers les fonctions de GDI+ qui semble mieux gérer la mémoire.J'ai concocté le petit test ci-dessous en liaison avec gdiplus.dll; il fonctionne parfaitement sauf en ce qui concerne l'instruction principale à mes yeux:  lm.lfEscapement 450 qui est censée être la commande d'inclinaison. A noter  que les commandes lm.lfItalic True pour la police italique et  lm.lfStrikeOut = True
 qui commande un police barrée fonctionnent elles très bien.
 Quelqu'un aurait-il le commencement d'une idée?

Private Sub DrawText()
   Dim graphics As Long, brush As Long
   Dim fontFam As Long, curFont As Long
   Dim lm As LOGFONTW
   Dim rcOrigin As RECTF
   Dim str As String, strlen As Long
   str = "Texte avec une rotation!"
   strlen = Len(str)
   str = StrConv(str, vbUnicode)
   Call GdipCreateFromHDC(Me.hdc, graphics)
   Call GdipCreateSolidFill(Blue, brush)
   Call GdipCreateFontFamilyFromName(StrConv("Arial", vbUnicode), 0, fontFam)
   lm.lfItalic = True
   lm.lfEscapement = 450
   lm.lfStrikeOut = True
   Call GdipCreateFontFromLogfontW(Me.hdc, lm, curFont)
   rcOrigin.Left = 100
   rcOrigin.Top = 100
   Call GdipDrawString(graphics, str, strlen, curFont, rcOrigin, 0, brush)
   Call GdipDeleteFont(curFont)
   Call GdipDeleteFontFamily(fontFam)
   Call GdipDeleteBrush(brush)
   Call GdipDeleteGraphics(graphics)
End Sub

jmfmarques · Answer

Lis :http://www.vbfrance.com/infomsg_TAILLE-POLICE-SUIVANT-HAUTEUR-ZONE_809370.aspx

entre autres...

jmfmarques · Answer

Et la lecture de ce lien ne sera pas, non plus, une perte de temps :

http://edais.mvps.org/Tutorials/GDI/DC/DCch5.html

cs_jacques13 · Answer

Je te remercie, jmfmarques, pour cette abondante documentation, mais je remarque qu'elle concerne uniquement la librairie GDI32 et non GdiPlus.

Renfield · Answer

Pour GDI+, tu peux faire une rotation de ton Viewport, et tu pourras faire joujou avec des textes inclinés...

Renfield
Admin CodeS-SourceS- MVP Visual Basic

cs_jacques13 · Answer

Les textes accompagnent, bien sûr, une grande quantité d'autres éléments graphiques et la solution de la rotation du ViewPort n'est pas envisageable.

Renfield · Answer

Je pense pourtant qu'il faut utiliser la méthode RotateTransform de l'objet Graphics....

soit l'API GdipRotateWorldTransform

rien ne t'empeche de "tourner le monde", de dessiner ton texte, et de "remettre le monde en place"

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Textes inclinés

6 réponses

Votre réponse

Discussions similaires