Vb.net listview互动程序不显示图像(.NET2.0、VB、winforms)
我试图用海报和DVD收藏的标题填充列表视图(平铺),但只有标题才可以看到 这是我的代码:Vb.net listview互动程序不显示图像(.NET2.0、VB、winforms),vb.net,winforms,listview,image,Vb.net,Winforms,Listview,Image,我试图用海报和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.I
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
您需要设置listviewitem的imageindex
var lvitem = ListView.Items.Add(item.Titel)
lvItem.imageIndex = 1
或
第x项获取imageindex=x-1
此外,当viewmode为details时,可能需要设置other Images属性(SmallImageList)
ListView.Items.Add(item.Titel,1)