VB6 TextWidth vs .Net MeasureString

Ok - this should be simple - and it should work. I've been strugglingly for 2 hours to get this right, so I decided to whip up two simple examples to see if I could get the same figure from both VB6 TEXTWIDTH and .Net MEASURESTRING.

In VB6 - I put this code into FORM_LOAD:

Code:

Private Sub Form_Load()

Form1.FontName = "Times New Roman"
Form1.FontSize = 10

Debug.Print Form1.TextWidth("abcdef")

End Sub

Returns a TWIP value of 540 in the IMMEDIATE WINDOW.

In .Net - I put this into FORM_LOAD (needed a PICTUREBOX1 control on the form first):

Code:

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Dim g As Graphics = Me.PictureBox1.CreateGraphics
    Dim ft As Drawing.Font
    Dim fs As Drawing.FontStyle
    Dim sz As SizeF

    Dim x As Single = 1440 / g.DpiX
    Dim y As Single = 1440 / g.DpiY

    fs = 0
    ft = New Font("Times New Roman", 10, fs)
    sz = g.MeasureString("abcdef", ft)

    Debug.WriteLine(sz.Width * x)
  End Sub

It comes back with 615.4948.

I need to be able to measure these strings in .Net with similar results to the VB6 program I am working against.

Does anyone have a clue what might be going on here

Then...

Ok - I just found this code:

Code:

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Call MeasureStringSizeFFormatInts()

  End Sub

  Public Sub MeasureStringSizeFFormatInts()
    Dim sformat As StringFormat = StringFormat.GenericTypographic
    Dim s As String = "abcdef"
    Dim cr(0) As CharacterRange
    Dim reg(0) As Drawing.Region
    'Dim gr As Graphics
    Dim fnt As New Font("Times New Roman", 10)
    Dim charactersFitted As Integer
    Dim linesFilled As Integer
    Dim layoutSize As New SizeF(Single.MaxValue, Single.MaxValue)
    Dim stringSize1 As New SizeF
    Dim stringSize2 As New SizeF
    Dim gr As Graphics = Me.PictureBox1.CreateGraphics
    cr(0) = New CharacterRange(0, s.Length)
    sformat.FormatFlags = StringFormatFlags.NoClip Or StringFormatFlags.NoWrap
    sformat.Trimming = StringTrimming.None
    sformat.SetMeasurableCharacterRanges(cr)
    reg = gr.MeasureCharacterRanges(s, fnt, New RectangleF(New PointF(0.0F, 0.0F), layoutSize), sformat)
    stringSize1 = New SizeF(reg(0).GetBounds(gr).Width, reg(0).GetBounds(gr).Height)
    gr.FillRegion(Brushes.Gray, reg(0))
    stringSize2 = gr.MeasureString(s, fnt, layoutSize, sformat, charactersFitted, linesFilled)
    gr.DrawRectangle(New Pen(Color.Red, 1), 0.0F, 0.0F, stringSize2.Width, stringSize2.Height)
    gr.DrawString(s, fnt, Brushes.Blue, New PointF(0, 0), sformat)
    MessageBox.Show("MeasureCharacterRanges Width=" & stringSize1.Width.ToString & Environment.NewLine & _
    "MeasureString Wdith=" & stringSize2.Width.ToString & Environment.NewLine & "MeasureCharacterRanges Height=" & _
    stringSize1.Height.ToString & Environment.NewLine & "MeasureString Height=" & stringSize2.Height.ToString)
  End Sub

Seems to return a value, that when multiplied by the 15 dpi/twip ratio comes out to 532.91 - closer to 540 then the 615...

Does anyone understand MEASURECHARACTERRANGES

Answer this question