ВБ6 - Додавање хоризонталног скрола у ЛистБок

Под ВБ6 листе кутије немају хоризонтални скрол и може бити прилично анонимно ако су дужине текстова дуже од ширине ЛистБок-а.

  • Ово захтева проширење лист-бокса у пропорцијама које нису нужно потребне за дизајн.
  • Ових неколико редова кода генерише хоризонтални скрол у ЛистБоку.
  • Отворите нови пројекат.
  • Залијепите доњи код у модул обрасца.

 Опција Екплицит Привате Цонст ЛБ_СЕТХОРИЗОНТАЛЕКСТЕНТ = & Х194 Привате Децларе Функција СендМессаге Либ "усер32" Алиас "СендМессагеА" (БиВал хвнд Ас Лонг, БиВал вМсг Лонг, БиВал вПарам Лонг, лПарам Ас Ани), Л Ас Интегер, Ва Ас Стринг, и Ас Интегер 'Приказати листу са дугим низом за и = 0 до 20 Ва = Ва & "Тест" & Лист & "" Лист1.АддИтем Ва Л = ТектВидтх (Лист1) .Лист (и)) Ако Лг Лист1.Видтх Онда ХоризонталСрцолл Лист1, Лг Енд Иф Енд Суб 'Адаптер лес валеурс ду сцролл хоризонтал. Привате Суб ХоризонталСрцолл (Лт Ас Цонтрол, Лг Ас Интегер) Дим Рет Ас Лонг Дим СцроллМак Ас Лонг СцроллМак = (Лг / Сцреен.ТвипсПерПикелКс) + 6 Рет = СендМессаге (Лт. 

Преузмите пројекат:

  • Сервер 1: СцроллХзЛист.зип
  • Приватни сервер: СцроллХзЛист.зип

Претходни Чланак Sledeći Чланак

Топ Савети