Сообщение LB_SETTABSTOPS

Const LB_SETTABSTOPS = &H192

Сообщение LB_SETTABSTOPS расставляет позиции табуляции в списке (vbTab). Позиции табуляции задаются в диалоговых единицах и соответствует одной четвёртой средней ширины символа.

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

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

Параметры

wParam

Задает число знаков табуляции в списке

lParam

Указатель на первый элемент массива, содержащего знаки табуляции

Пример

Dim mTabs(0) As Long
mTabs(0) = -List1.Width * 44 / 8000 + 2
SendMessage List1.hwnd, LB_SETTABSTOPS, 1, mTabs(0)
List1.Clear
List1.AddItem vbTab & "Русский_проект"
List1.AddItem vbTab & "Visual Basic"
List1.AddItem vbTab & "http://developer.alexanderklimov.ru/"

Категория