Get the Number of Lines of Text in an Edit Control

Category:

Forms and Controls

Type:

Snippets

Difficulty:

Intermediate

Author:

Intelligent Solutions Inc.

Version Compatibility:

More information:

This method was written so it will work with a TextBox, a RichTextBox, or a custom control based on a text box that exposes the hWnd, text, and multiline properties.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
Const ERR_TEXT_CONTROL_EXPECTED = 20000 Const ERR_TEXT_CONTROL_EXPECTED_MSG = _ "Expected: Text Box or other edit control" Const EM_GETLINECOUNT = &HBA Private Declare Function SendMessage Lib "user32" _ Alias "SendMessageA" (ByVal hwnd As Long, _ ByVal wMsg As Long, ByVal wParam As Long, _ lParam As Any) As Long

Code: