Detecting the number of lines in a label.

[CamB]

Is there a method of programmatically detecting the number of lines of text contained in a label?

I want to know how many lines of text have been triggered in a label control. I need to use a label control because of its transparent capabilities.

There must be some way of accessing the number of new line events that have been triggered, but I haven't been able to figure it out, nor have I read anything that helps.

Any suggestions?

[CamB]

Oh, sorry, I should have mentioned that I'm using Visual Basic 2010.

[Guido Geurs]

This works in VB6:
Split the Caption of the label on "VbNewLine" to an array.
The Ubound + 1 = number of lines in the Caption.

Private Sub Form_Load()
Dim ARRlines() As String
   'fill label
   Label1.Caption = "ffff" & vbNewLine & _
                  "gggg" & vbNewLine & _
                  "hhhh" & vbNewLine & _
                  "mmmmmmm"
   'Split text
   ARRlines = Split(Label1.Caption, vbNewLine)
   MsgBox "Lines in Label1= " & UBound(ARRlines) + 1
   ' clean array
   ReDim ARRlines(0) 
End Sub

[CamB]

Thanks for the help, but it doesn't address my difficulty. Your code forces line breaks; I know how to do that, but it's not the issue.

I want to detect the automated line breaks created in a label by Visual Basic when it is set to Autosize False. I was parsing the text myself and creating line breaks where spaces occured near the desired label width. I'm hoping that rather than all of that fuss, that I can instead utilize the events that - evidently - must be locked somewhere in the Visual Basic code.

However, thanks for caring enough to reply.

[Guido Geurs]

You can use the EM_GETLINECOUNT.
Make a copy of the label.caption in a hidden textbox with the same properties for width and font of the label. (see attached demo)
Use EM_GETLINECOUNT on the textbox with:

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
Const EM_GETLINECOUNT = 186

and :

      MsgBox "Lines in label = " & SendMessageAsLong(Text1.hWnd, EM_GETLINECOUNT, 0, 0)