Сообщение LB_SETHORIZONTALEXTENT

Сообщение LB_SETHORIZONTALEXTENT задает текущую ширину списка в пикселах. Если значение превышает физическую ширину, то в списке появляется горизонтальная полоса прокрутки

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

Параметры

wParam

Задает новую ширину списка в пикселах. Windows 95/98/Me: Данный параметр ограничен 16-битным значением

lParam

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

Пример

' смотри также listbox.zip 
' Добавим горизонтальную прокрутку в ListBox

Dim s As String
Static x As Long
s = InputBox("Введите свой текст", "List scroll", _
           "Пример добавления прокрутки в список")
List1.AddItem s
If x < TextWidth(s & "  ") Then
   x = TextWidth(s & "  ")
   If ScaleMode = vbTwips Then _
        x = x / Screen.TwipsPerPixelX ' если твипы, то меняем на пикселы
        SendMessageByNum List1.hwnd, LB_SETHORIZONTALEXTENT, x, 0
   End If

Смотри также

Категория