Сообщение EM_SETTABSTOPS

Const EM_SETTABSTOPS = &HCB

Сообщение EM_SETTABSTOPS устанавливает позиции табуляции в многострочном текстовом поле

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

Если все символы табуляции установлены, то возвращается True. Если не все символы табуляции установлены, то возвращается False

Параметры

wParam
задает число символов табуляции, содержащихся в массиве. Если параметр равен 0, то параметр lParam игнорируется и используется значение по умолчанию - один символ табуляции на каждые 32 единицы устройства. Если равен 1, то символы табуляции следуют через каждые n единиц, где n - первый элемент массива в параметре lParam. В других случаях параметр задаёт число символов табуляции в массиве lParam
lParam
Адрес первого элемента массива, содержащего устанавливаемые символы табуляции

Пример

' Установим символы табуляции с разными размерами
' в многострочном текстовом поле

Dim tabs(1 To 2) As Long
Dim txt As String

    tabs(1) = 20
    tabs(2) = 130

' Устанавливаем символы табуляции
SendMessage Text1.hwnd, EM_SETTABSTOPS, 2, tabs(1)

' Введем слова
    txt = "Москва" & vbTab & "Петербург" & vbCrLf
    txt = txt & vbTab & "—очи" & vbTab & "Краснодар" & vbCrLf
    txt = txt & vbTab & "”фа" & vbTab & "Владивосток"
Text1.Text = txt

Категория

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