I don't believe this code gives the correct RichTextBox string size

[**Developer**]

I don't believe the code below gives the correct string size in inches.

Can any one tell me what is wrong?

I need to know the size of the string before I add it to the RichTextBox

Thanks

Public ReadOnly Property TxtMeasureString(ByVal str As String) As SizeF

Get

Dim Gr As Graphics = Me.CreateGraphics

Dim MeasureString As SizeF = Gr.MeasureString(str,
ControlRichTextBox1.SelectionFont())

TxtMeasureString = New SizeF(MeasureString.Width / Gr.DpiX,
MeasureString.Height / Gr.DpiY)

Gr.Dispose()

End Get

End Property

[Herfried K. Wagner [MVP]]

" **Developer**" <RE*************@a-znet.com> schrieb:

I don't believe the code below gives the correct string size in inches.

Can any one tell me what is wrong?

I need to know the size of the string before I add it to the RichTextBox

I think it's not as easy. The richtextbox control is drawn using GDI, while
'Graphics.MeasureString' measuers the string using GDI+. Consequently
'MeasureString' won't return the exact size of the string. I fear you will
have to dig into the GDI32-API to get exact results.

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[**Developer**]

Thanks, I'll go searching

\
"Herfried K. Wagner [MVP]" <hi***************@gmx.at> wrote in message
news:uW*************@TK2MSFTNGP15.phx.gbl...

" **Developer**" <RE*************@a-znet.com> schrieb:

I don't believe the code below gives the correct string size in inches.

Can any one tell me what is wrong?

I need to know the size of the string before I add it to the RichTextBox

I think it's not as easy. The richtextbox control is drawn using GDI,
while 'Graphics.MeasureString' measuers the string using GDI+.
Consequently 'MeasureString' won't return the exact size of the string. I
fear you will have to dig into the GDI32-API to get exact results.

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>