La taille d'un string

Version imprimable

22/01/2014, 21h35
shayw

La taille d'un string
Bonjour

Pourquoi si j'écris
Code:

1 2 Dim size As SizeF size = BufferredGraphic.Graphics.MeasureString(" ", New Font("AR BERKLEY", 22, FontStyle.Bold, GraphicsUnit.Pixel))
ou

Code:

size = BufferredGraphic.Graphics.MeasureString(" ", New Font("AR BERKLEY", 22, FontStyle.Bold, GraphicsUnit.Pixel))

le size.width a la meme valeur ? :?

merci
22/01/2014, 22h04
Sehnsucht

Suite à quelques recherches, il faudrait a priori utiliser une des surcharges prenant un StringFormat afin de spécifier que les espaces ne sont pas "trimmés"
Après j'ai fait quelques rapides tests, et j'obtiens des width de 0 sans trop savoir pourquoi ; raison pour laquelle personnellement, j'utiliserais plutôt TextRenderer.MeasureText qui semble (me) donner de meilleurs résultats.
:).
22/01/2014, 22h30
shayw

encore plus bizarre
car

Code:

size = BufferredGraphic.Graphics.MeasureString(" ", New Font("AR BERKLEY", 24, FontStyle.Bold, GraphicsUnit.Pixel))

et

Code:

size = TextRenderer.MeasureText(" ", New Font("AR BERKLEY", 24, FontStyle.Bold, GraphicsUnit.Pixel))

donne deux valeurs différentes
aussi

Code:

size = BufferredGraphic.Graphics.MeasureString("B", New Font("AR BERKLEY", 24, FontStyle.Bold, GraphicsUnit.Pixel))

et

Code:

size = TextRenderer.MeasureText("B", New Font("AR BERKLEY", 24, FontStyle.Bold, GraphicsUnit.Pixel))

donne deux valeurs différentes
23/01/2014, 00h16
Graffito

J'avais aussi remarqué ces différences.
Voir : http://stackoverflow.com/questions/1...xpected-number

bonjour

il faut utiliser stringformat avec options trailing ...
-dans measure
-dans drawstring

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
Public Class frmFont
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim gr As Graphics = Me.CreateGraphics
        Dim fnt As Font
        Dim ss As SizeF
        Dim S As String
        Dim location As Point
        Dim fmt As StringFormat = New StringFormat(StringFormat.GenericTypographic)
        fmt.FormatFlags = StringFormatFlags.MeasureTrailingSpaces
 
 
        'cas 1
        S = "     "
        fnt = New Font("Garamond", 22, FontStyle.Bold)
        ss = gr.MeasureString(S, fnt, 0, fmt)
 
        '  rectangle 
        location = New Point(100.0, 100.0)
        Dim rect As New Rectangle(location.X, location.Y, ss.Width, ss.Height)
 
        gr.DrawRectangle(New Pen(Color.Yellow, 1),
                rect)
 
        '  string
        gr.DrawString(S,
                      fnt,
                      Brushes.Black,
                      New RectangleF(location, ss), fmt)
 
        'cas 2
        S = "           ".ToString
        fnt = New Font("Garamond", 22, FontStyle.Bold)
        ss = gr.MeasureString(S, fnt, 0, fmt)
 
        ' rectangle.
        location = New Point(200.0, 200.0)
        rect = New Rectangle(location.X, location.Y, ss.Width, ss.Height)
        gr.DrawRectangle(New Pen(Color.DarkBlue, 1),
                         rect)
 
        ' string to screen.
        gr.DrawString(S,
                      fnt,
                      Brushes.Black,
                     New RectangleF(location, ss), fmt)
 
    End Sub
End Class

bon code......

23/01/2014, 13h38
shayw

Merci Mabrouky
il y a une nette différence ;)