by Jono Spiro (4 Submissions)
Category: String Manipulation
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Date Added: Wed 3rd February 2021
Rating: (3 Votes)
Simply counts the number of lines in a textbox (the textbox should be multiline=true, otherwise it is pretty useless). Put this in a module so it can be reused.
Inputs
USAGE--countLines(the textbox)
EXAMPLE--countLines(text1)
Code Returns
Returns the number of lines in a textbox.
Public Function countLines(textBox As textBox) As Long
Dim A%, B$
A% = 1
B$ = textBox.text
Do While InStr(B$, Chr$(13))
A% = A% + 1
B$ = Mid$(B$, InStr(B$, Chr$(13)) + 1)
Loop
countLines = CStr(A%)
End Function