[RESOLVED] Count the number of lines in a textbox?

[Hassan Basri]

Hello, does anybody know how to count the number of lines that are in a multi-line textbox? Thank you.

[danasegarane]

see this

[Hassan Basri]

Thanks for the link. I used the following API call. However this does not work with a TextBox you must use a Rich Edit Control for this to return the correct results.

Private Declare Function SendMessageAsLong Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Const EM_GETLINECOUNT = 186

MsgBox SendMessageAsLong(MyRichEditBox.hWnd, EM_GETLINECOUNT, 0, 0)

[Andrew G]

You could also use

    Dim Lns() As String
    Lns() = Split(Text1.Text, vbNewLine)
    MsgBox "There are " & UBound(Lns()) + 1 & " lines in textbox 1"

But for a lot of lines it might be a bit slow.

[bushmobile]

EM_GETLINECOUNT works fine with a standard TextBox

[Hassan Basri]

It doesn't work with a textbox for me. I have some text that is 22 lines long, in a textbox it returns 7 using EM_GETLINECOUNT, in a rich edit box it returns the correct 22.

[bushmobile]

works fine for me

[Hassan Basri]

I think it may have to do with how each control does word-wrapping. Try adding a Rich Edit box to your form and increase the amount of characters in your Text2 like this and the results will not be the same between the two controls:

Text2.Text = String(22 * 22, "A")
    
RichTextBox1.Text = String(22 * 22, "A")

[bushmobile]

still not getting any problems (see attached) - you might get 1 or 2 lines difference do to character spacing (assuming the controls are the same width) - but EM_GETLINECOUNT still returns the correct number of lines.