Auto-adjust height of richtextbox (or textbox) based on length of string?

[papalarge]

Hey all...

I've been using the following to calculate the height the textbox
needs to be in order to grow it vertically to its necessary size.

textbox1.Height = Me.CreateGraphi cs().MeasureStr ing(textbox1.Te xt,
textbox1.Font, textbox1.Width) .Height

However it's not appearing to work that well, especially when I'm
using a RichTextbox control, and adjusting it (or checking it) on each
KeyDown event.

Private Sub richtextbox1_Ke yPress(ByVal sender As Object, ByVal e As
System.Windows. Forms.KeyPressE ventArgs) Handles RichTextBox1.Ke yPress
' ADJUSTS HEIGHT OF LABEL BASED ON AMOUNT OF TEXT
RichTextBox1.He ight =
Me.CreateGraphi cs().MeasureStr ing(RichTextBox 1.Text,
RichTextBox1.Fo nt, RichTextBox1.Wi dth).Height
End Sub

Any other methods of determining this? In the end, I'd like a
richtextbox control that grows vertically (only) as the text wraps to
a second line (and only grows at that point, no sooner)

Thanks...

[papalarge]

Wow... found the answer, was easier than I thought. It takes into
account at least bold, underline text. Not sure about tables, etc.
though.

Private Sub RichTextBox1_Co ntentsResized(B yVal sender As Object, ByVal
e As System.Windows. Forms.ContentsR esizedEventArgs ) Handles
RichTextBox1.Co ntentsResized
' THE "10" IS FOR THE SIZE DIFFERENCE BETWEEN THE HEIGHT OF YOUR FONT
AND THE PADDING YOU'D LIKE TO GIVE IT
If RichTextBox1.He ight <e.NewRectangle .Height + 10 Then
RichTextBox1.He ight = e.NewRectangle. Height + 10
End If
End Sub