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
สรุปโดย 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.
ซอร์สโค้ด
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 Upload
ความคิดเห็นดั้งเดิม (3)
กู้คืนจาก Wayback Machine