EM_GETSEL

Сообщение EM_GETSEL

Const EM_GETSEL = &HB0

Сообщение EM_GETSEL определяет выделенный текст в текстовом поле

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

Сообщение возвращает начальную и конечную позицию выделенного текста, упакованного в переменную типа Single 32-разрядного целого числа. Младшее слово из word содержит начальную позицию выделенного текста, а старшее слово содержит позицию первого символа после выделенного текста. Таким образом, проще использовать значения wParam и lParam для чтения выделенного текста, чем пользоваться возвращаемым значением

Параметры

wParam: Получает отсчитываемую от нуля позицию первого символа в выделенном тексте
lParam: Получает отсчитываемую от нуля позицию символа сразу после конца выделенного текста

Пример

' Показываем выделенный текст в Text1
'  Вы должны создать текстовое поле Text1
Dim startpos As Long  ' начало выделенного текста
Dim endpos As Long   ' конец выделенного текста
Dim retval As Long ' возвращаемое значение
Dim seltext As String ' выделенный текст

' Определяем выделенный текст
retval = SendMessage(Text1.hWnd, EM_GETSEL, startpos, endpos)

If startpos <> endpos Then
	seltext = Mid(Text1.Text, startpos + 1, endpos - startpos)
	Debug.Print "Выделено: "; seltext
Else
	Debug.Print "Текст не выделен"
End If

Смотри также

EM_REPLACESEL, EM_SETSEL

Категория

Поля редактирования