Сообщение EM_REPLACESEL

Сообщение EM_REPLACESEL заменяет выделенный текст в поле редактирования другим текстом. Если ничего не выделено, новый текст вставляется с позиции каретки

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

Параметры

wParam

Определяет, должна ли текстовая замена быть добавлена к списку Undo поля редактирования, который позволил бы пользователю отменять операцию. Значение отличное от нуля позволяет отмену; значение 0 нет

lParam

Текст для замены выделенной строки. Если ничто не выделено, этот текст вставляется с текущей позиции каретки

Пример

' Заменяем слово Русский в текстовом поле на Russian.
' Установите на форме TextBox  и присвойте свойству Text значение Русский_Проект

Dim retval As Long ' возвращаемое значение
' Сначала, выделяем первые семь символов в Text1
retval = SendMessage(Text1.hWnd, EM_SETSEL, ByVal 0, ByVal 7)
' Затем заменяем текст
retval =SendMessage(Text1.hWnd, EM_REPLACESEL, ByVal 1, ByVal "Russian")

Смотри также

Категория