Ага! Глюк в гиф-ках! Вот с приатаченными BMP работает "на ура".
ЕМНИП, в С и в Делфях в ИмеджЛист вообще нельзя напрямую ГИФ-ку засунуть, и как по мне, в VB тоже этого лучше не делать..
-
Работоспособность проверялась кодом:
- Код: Выделить всё
Private Sub Form_Load()
ImageList1.MaskColor = vbMagenta
ImageList1.UseMaskColor = True
With ListView1
Set .SmallIcons = ImageList1
.View = lvwReport
.ColumnHeaders.Add , , "test"
.ListItems.Add , , 1, , 1
.ListItems.Add , , 2, , 2
.ListItems.Add , , 3, , 3
End With
End Sub
О маске в ImageList я наврал: её использование помогает, просто я неверно цвет указывал.
В том-то и дело. Так уж наверное Gif устроен, что при создании картинки прозрачный фон выбирается по каким-то критериям (возможно это зависит от программы-редактора)
И маска тут не поможет, т.к. первые две картинки имеют черный фон (так уж они созданы), а желтая - белый.
Это хорошо видно, если выбрать для ListView другой BackColor.
Или: при выделении отчетливо видно, что красная и зеленая имеют круглую форму, а желтая выделяется целиком. (это с ImageList.MaskColor =
&H00000000&)
Такчто юзай БМП.
Нам чужого не надо, но своё мы возьмем, чьё бы оно ни было...