Сообщение EM_LINELENGTH

Пошлите сообщение EM_LINELENGTH текстовому полю для определения длины строки

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

Параметры

wParam

Отсчитываемый от нуля индекс символа строки для получение ее длины. Для получения индекста первого символа в строке используйте EM_LINEINDEX. Если параметр равен -1, то функция возвратит число невыделенных символов строки, содержащий заданный символ

lParam

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

Пример

' Определяем длину текущей строки(содержащей каретку)
' Создайте на форме текстовое поле Text1 и кнопку  Command1

Private Sub Command1_Click()
Dim charindex As Long   ' индекс первого символа в текущей строке
Dim linetextlen As Integer  ' длина строки

' Получаем индекс первого символа текущей строки
charindex = SendMessage(Text1.hWnd, EM_LINEINDEX, ByVal -1, ByVal CLng(0))
' Находим длину текущей строки
linetextlen = SendMessage(Text1.hWnd, EM_LINELENGTH, ByVal charindex, ByVal CLng(0))
MsgBox linetextlen
End Sub

Категория