Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private Sub VulListView(ByVal lv As System.Windows.Forms.ListView, ByVal col As Collection)
- lv.Items.Clear()
- imlCoverImages.Images.Clear()
- For Each item As bsFilm In col
- Dim lvi As New ListViewItem
- lvi.Text = item.titel
- lvi.Tag = item.filmId
- lvi.ImageKey = "coverImage-" & item.titel
- If Not item.cover Is Nothing Then
- imlCoverImages.Images.Add("coverImage-" & item.titel, item.cover)
- Else
- imlCoverImages.Images.Add("coverImage-" & item.titel, imageNoImage)
- End If
- lv.Items.Add(lvi)
- Next
- End Sub
Add Comment
Please, Sign In to add comment