Discussion :

[Sekigawa]

Bonjour,

Je vous explique mon soucis, j'ai un objet graphique et je dois y placer du texte au centre. Pour que cela se fasse automatiquement (le texte n'est pas toujours de la même taille) il me faudrait savoir la taille de ma chaine en pixel pour pouvoir faire un calcul et placer mon texte centré :

(tailleImagepixel - tailleTextePixel / 2)

Pour fabriquer mon image j'utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Dim objBMP_original As Bitmap = New Bitmap(_cheminImageDeFond)

Et pour le texte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim PrivateFontCollection As PrivateFontCollection = New PrivateFontCollection()
PrivateFontCollection.AddFontFile(_cheminNomPoliceEAN13)
Dim fontFamily As FontFamily = PrivateFontCollection.Families(0)

' Set font style 
'Dim objFontNomEnseigne As System.Drawing.Font = New Font("Arial", 28, FontStyle.Bold, GraphicsUnit.Pixel)
Dim objFontInfos1 As System.Drawing.Font = New Font("Arial", 12, FontStyle.Regular, GraphicsUnit.Pixel)

objGraphics.DrawString(Me.listeInfosAafficher(0), objFontInfos1, Brushes.Black, 95, 175)

Il faudrait que ce qui est en rouge soit renseigné dynamiquement

J'ai la taille de l'image mais pas celle du texte, savez vous comment faire ??

[_PascalC_]

Salut, regarde du côté de la méthode MeasureString() de ton objet objGraphics

[Sankasssss]

Salut, regarde du côté de la méthode MeasureString() de ton objet objGraphics

+1.

et ne pas oublier de disposer ton objet objGraphics aussi non il reste en mémoire...

[Sekigawa]

Voilà j'ai réussi grâce à vous !! Merci !!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Dim tailleString As System.Drawing.SizeF = objGraphics.MeasureString(Me.listeInfosAafficher(0), objFontInfos1)
Dim taille As Integer = CInt(((objBMP_nouveau.Width / 2) - tailleString.Width) / 2)

ça fonctionne nickel

et ne pas oublier de disposer ton objet objGraphics aussi non il reste en mémoire...

C'est à dire ??