Count number of lines/returns in a textbox
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.
AI
Shrnutí AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Zdrojový kód
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
Původní komentáře (3)
Obnoveno z Wayback Machine