Разноцветный текст в ListBox

[Hawk[BZ]]

Есть такая проблема... Или не проблема. Вобщем можно ли сделать чтобы в списке (ListBox) текст был цветным. То есть одни строки одного цвета, другие - другого. Ну или вообще какое-нибудь выделение. Например, есть такой объект как ImageCombo. Там можно рядом с текстом ставить картинки. Но в данном случае мне нужен именно ListBox или что-то подобное. Вот...

[hCORe]

RTFM!!! ListView

Ставишь на форму ListView с именем ListView1 и юзаешь следующий код:

Код: Выделить всё

Private Sub Form_Load()
On Error Resume Next
    ListView1.ListItems.Add , , "TXCT!!!"
    ListView1.ListItems.Add , , "TXCT2!!!"
    ListView1.ListItems.Add , , "TXCT3!!!"
    ListView1.ListItems.Add , , "TXCT4!!!"
    ListView1.ListItems.Add , , "TXCT5!!!"
    ListView1.ListItems.Item(1).ForeColor = vbBlue
    ListView1.ListItems.Item(2).ForeColor = vbRed
    ListView1.ListItems.Item(3).ForeColor = vbGreen
    ListView1.ListItems.Item(4).ForeColor = vbMagenta
    ListView1.ListItems.Item(5).ForeColor = vbCyan
End Sub

и в дизайн-тайме ставишь View=lvwList

[Hawk[BZ]]

Да что-то он не хочет писать ForeColor. Ошибку выдает... Просто ListView1.ForeColor=vbRed он понимает... а ListView1.ListItems.Item(2).ForeColor = vbRed не хочет...

[Amed]

Внимательней! Кажется, ты используешь не ListView, а ListBox!!!
ListView подключается через Project|Components!

[Hawk[BZ]]

Нет.. Я как раз ListView использую. Но вот не принимает он такую команду. Там есть еще что-то типа icons и smallicons. А ими как пользоваться? Вы уж извините за глупые вопросы.

[hCORe]

Внимание! Версия M$ Common Controls у меня - 6.0 SP5, поэтому все работает . Если использовать обычный List - то этого можно добиться только через субклассирование (создание собственных классов окон и перехват сообщений). Посему - читайте статьи на vbAccelerator'e.