Иконки в ListView

Question

Я пытаюсь добавить значки рядом с текстом в просмотре списка, но постоянно получаю сообщение о том, что мне нужно , чтобы можно было инициализировать imagelist, прежде чем его можно будет использовать .

В окне формы при загрузке у меня есть следующий код:

    Private Sub UserForm_Initialize()
    ImageList3.ListImages.Add Key:="Koala", Picture:=LoadPicture("\images\add_icon.gif")
    end sub

Тогда я пытаюсь заполнить список таким образом

li.ListSubItems.Add , , "Test", "Koala"

Что я делаю не так?

Answer 1

Вам необходимо связать свой ImageList с ListView с помощью свойства Icons.Добавьте следующую строку в UserForm_Initialize - это нужно сделать до того, как вы заполните ListView (конечно, вам нужно адаптировать имя ListView)

Me.ListView1.Icons = ImageList3