Сообщение EM_GETLINECOUNT

Const EM_GETLINECOUNT As Integer = &HBA

Сообщение EM_GETLINECOUNT возвращает число строк в многострочном текстовом поле

Возвращаемое значение

Сообщение возвращает число строк в многострочном текстовом поле. Если текстовое поле не содержит текста, то возвращается 1. Возвращаемое значение никогда не может быть меньше единицы

Параметры

wParam

Не используется - установите равным 0

lParam

Не используется - установите равным 0

Пример

' Определяем число строк в текстовом поле
' Вы должны создать текстовое поле Text1
Dim NumberLines As Long  ' число строк в тексте

NumberLines = SendMessage(Text1.hwnd, EM_GETLINECOUNT, 0, 0)
MsgBox "Число строк: " & NumberLines

Смотри также

Категория