• Home
 · 
• Windows API Call/Explanation
 · 
• Count the number of lines in a text box.

Count the number of lines in a text box.

Count the number of lines in a text box.

API Declarations


Const EM_GETLINECOUNT = &HBA






Rate Count the number of lines in a text box.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Dim cntln As Long
   On Error Resume Next
    cntln = SendMessageLong(Text1.hwnd, EM_GETLINECOUNT, 0&, 0&) 'Counting Lines
    Label1.Caption = Format$(cntln , "##,###") 'Formating Label Control
End Sub