VB6 - Добавяне на хоризонтален скрол в ListBox

Под VB6 списъчните кутии нямат хоризонтален превъртане и може да е доста ясно дали дължината на текстовете е по-голяма от ширината на ListBox.

Това изисква разширяването на ListBox в пропорции, които не са непременно желани за дизайна.
Тези няколко реда код генерира хоризонтален превъртане в ListBox.
Отворете нов проект.
Поставете кода по-долу в модула на формуляра.

 Опция Изрично Частно Конфигурация LB_SETHORIZONTALEXTENT = & H194 Частна декларираща функция SendMessage Lib "user32" Псевдоним "SendMessageA" (ByVal hwnd Long, ByVal wMsg Long, ByVal wParam Long, lParam Any Any), L Като цяло число, Va As String, i Като целочислено 'Изтриване на списък с дължини на дължина за i = 0 до 20 Va = Va & "Тест" & i & nbsp; List1.AddItem Va L = TextWidth (List1) Списък (i)) Ако Lg List1.Width Тогава HorizontalSrcoll List1, Lg End, ако End Sub 'Adapter les valeurs du scroll хоризонтално. Частен подпрозорец (Lt като контрол, Lg като целочислен) Dim Ret като дълго Dim ScrollMax As Long ScrollMax = (Lg / Screen.TwipsPerPixelX) + 6 Ret = Изпращане на съобщение (Lt.hwnd, LB_SETHORIZONTALEXTENT, ScrollMax, 0 &)

Изтеглете проекта: