Grow/Shrink a wordwraped textbox

Does anybody know how to grow or shrink a text box that is using word wrap?

Or alternatively, know how to get the number of lines in a wordraped text box (NOT textbox.lines, these are lines that are delimeted by a CR LF, wordwraps dont do this).

Thanks

Something like this.

VB Code:

Public Function GetLines(txt As TextBox) As Integer
  Return txt.Text.Split(ControlChars.Newline).Length
End Function

Thats pretty much all I've got so far. That still looks for a newline charactor, which doesn't get put in the field when the control wraps text to the next line.

My bad I misread your question. I don't know how you can do it with a normal textbox, well you probably could through APIs, but with a richtextbox its easy. If you can use a richtextbox instead then you can use this:

VB Code:

MsgBox("Lines: " & TextBox1.GetLineFromCharIndex(TextBox1.TextLength) + 1)

That did the trick, Thanks Edneeis.

expanding it a little..

This is a custom control, txtText was the field that I wanted to Grow/Shrink. The on_resize stuff was added so that when the box grows, the text displays as you would expect it. Otherwise the first line gets pushed up out of view, and the bottom line is blank.

VB Code:

Public ReadOnly Property Lines() As Integer
        Get
            Return txtText.GetLineFromCharIndex(txtText.TextLength) + 1
        End Get
    End Property
 
    Private Sub txtText_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtText.TextChanged
        Dim TextHeight As Integer = (txtText.Font.Height * Lines) + 8 'The 8 is padding 
 
        txtText.Height = TextHeight
        txtNote.Height = TextHeight
        Me.Height = TextHeight
    End Sub
 
    Private Sub Note_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize
        txtText.Text = txtText.Text
        txtText.AppendText("") 'moves the cursor to the end
    End Sub

oo... as an unexpected, but usefull, feature. the on_resize also means makes the text box grow/shrink in height as you rezise it horizontally (and thus change the number of wordwrap lines).