на листах списка не отображаются изображения (.NET2.0, VB, winforms)

Question

Я пытаюсь заполнить список (фрагменты) постерами и заголовками коллекции DVD, но только заголовки становятся видимыми.

это мой код:

Private Sub fillListView(ByVal listView As System.Windows.Forms.ListView, ByVal col As Collection)
listView.Items.Clear()
myImageList = New ImageList()
For Each item As bsDVD In col
  Try
    myImageList.Images.Add(Image.FromFile(Application.StartupPath & item.PosterURL))
  Catch ex As Exception
    MessageBox.Show(ex.message)
  End Try
Next
myImageList.ImageSize = New Size(32, 32)
listView.LargeImageList = myImageList
For Each item As bsDVD In col
  listView.Items.Add(item.Titel)
Next
End Sub

Пытался много, не могу заставить его работать :(. Я сделал глупую ошибку или? Надеюсь, кто-то может мне помочь.

Ты заранее

---

Вы оба за помощь мне ...

код решения:

Private Sub fillListView(ByVal listView As System.Windows.Forms.ListView, ByVal col As Collection)
listView.Items.Clear()
myImageList = New ImageList()
myImageList.ImageSize = New Size(70, 100)
myImageList.ColorDepth = ColorDepth.Depth24Bit

For Each item As bsDVD In col
  Try
    myImageList.Images.Add(Image.FromFile(Application.StartupPath & item.PosterURL))
  Catch ex As Exception
    MessageBox.Show("Kan afbeelding niet inladen!")
  End Try
Next
listView.LargeImageList = myImageList
Dim mItem As bsDVD
For i As Integer = 1 To col.Count
  mItem = CType(col.Item(i), bsDVD)
  listView.Items.Add(mItem.Titel)
  listView.Items(i - 1).ImageIndex = (i - 1)
Next
End Sub

Answer 1

Вам необходимо установить индекс изображения элемента списка.

var lvitem = ListView.Items.Add(item.Titel) 
lvItem.imageIndex = 1 

или

ListView.Items.Add(item.Titel,1) 

X-й элемент получает imageindex = x-1

Также, когдаviewmode это детали, вам может понадобиться установить другое свойство Images (SmallImageList).