Строки ListBox разными цветами VB5 или VB6 через API

14.11.2011, 20:19. **Показов** 2968. **Ответов** 4

Студворк — интернет-сервис помощи студентам

Здравствуйте!
Как сделать в VB5 или VB6 через API, чтобы текст в строках ListBox можно было раскрашивать в разные цвета?
Я конечно понимаю, что можно использовать MSFlexGrid, но опасаюсь, что он отнимет больше ресурсов у компьютера в момент работы (ОЗУ, скорость), а их и так катастрофически не хватает, т.к. программа уже очень большая.

14.11.2011, 21:42

Нужно использовать т.н. "custom draw". Поищи в Сети.
Если коротко - то ты подменяешь "оконную процедуру" листбокса [italic](при помощи "сабклассинга")[/italic], затем в новой (своей) оконной процедуре ловишь определённое "notification message" [italic](что-то типа "...ITEM_PREPAINT" - см. MSDN, чтоб узнать наверняка)[/italic], считываешь с параметров процедуры (lParam, wParam) информацию о перерисовываемом элементе листбокса в некую структуру [italic](тут тебе тоже поможет MSDN)[/italic], затем из её полей выдёргиваешь "область" элемента (в некий RECT), а также текст (в некую строковую переменную), ну и затем - FillRect нужным цветом [italic](в зависимости от чётности номера элемента)[/italic], и поверх - DrawText [italic](ту самую строковую переменную)[/italic]. А возможно - обойдётся и без FillRect и DrawText, если, конечно, структура содержит поле типа BckgColor: в таком случае достаточно просто перезаписать этот цвет обратно в структуру. Для всех манипуляций со структурой понадобится АПИ CopyMemory.

Это тебе просто "guideline" для дальнейших изысканий

16.11.2011, 02:23

Comanche, я в API не силён. Смогу только воспользоваться готовым работающим примером.

16.11.2011, 10:53

Всё бывает когда-то в первый раз

16.11.2011, 22:54

Пример не нашёл, в конце концов заменил на MSFlexGrid. Пришлось целую кучу кода менять (свойства по-другому называются) и таблицу настраивать сложнее.
Но в результате приятная неожиданность - MSFlexGrid заполняется быстрее, чем ListBox. Я думаю это из-за того, что в MSFlexGrid есть возможность запретить перерисовку (свойство Redraw), заполнить, а потом опять разрешить, а в ListBox такого нет.

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

aleksmir

	Строки ListBox разными цветами VB5 или VB6 через API 14.11.2011, 20:19. Показов 2968. Ответов 4 Метки нет (Все метки) Здравствуйте! Как сделать в VB5 или VB6 через API, чтобы текст в строках ListBox можно было раскрашивать в разные цвета? Я конечно понимаю, что можно использовать MSFlexGrid, но опасаюсь, что он отнимет больше ресурсов у компьютера в момент работы (ОЗУ, скорость), а их и так катастрофически не хватает, т.к. программа уже очень большая.

Comanche
	14.11.2011, 21:42
	Нужно использовать т.н. "custom draw". Поищи в Сети. Если коротко - то ты подменяешь "оконную процедуру" листбокса [italic](при помощи "сабклассинга")[/italic], затем в новой (своей) оконной процедуре ловишь определённое "notification message" [italic](что-то типа "...ITEM_PREPAINT" - см. MSDN, чтоб узнать наверняка)[/italic], считываешь с параметров процедуры (lParam, wParam) информацию о перерисовываемом элементе листбокса в некую структуру [italic](тут тебе тоже поможет MSDN)[/italic], затем из её полей выдёргиваешь "область" элемента (в некий RECT), а также текст (в некую строковую переменную), ну и затем - FillRect нужным цветом [italic](в зависимости от чётности номера элемента)[/italic], и поверх - DrawText [italic](ту самую строковую переменную)[/italic]. А возможно - обойдётся и без FillRect и DrawText, если, конечно, структура содержит поле типа BckgColor: в таком случае достаточно просто перезаписать этот цвет обратно в структуру. Для всех манипуляций со структурой понадобится АПИ CopyMemory. Это тебе просто "guideline" для дальнейших изысканий

aleksmir
	16.11.2011, 02:23
	Comanche, я в API не силён. Смогу только воспользоваться готовым работающим примером.

Comanche
	16.11.2011, 10:53
	Всё бывает когда-то в первый раз

aleksmir
	16.11.2011, 22:54
	Пример не нашёл, в конце концов заменил на MSFlexGrid. Пришлось целую кучу кода менять (свойства по-другому называются) и таблицу настраивать сложнее. Но в результате приятная неожиданность - MSFlexGrid заполняется быстрее, чем ListBox. Я думаю это из-за того, что в MSFlexGrid есть возможность запретить перерисовку (свойство Redraw), заполнить, а потом опять разрешить, а в ListBox такого нет.