Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/vb.net/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vb.net listview互动程序不显示图像(.NET2.0、VB、winforms)_Vb.net_Winforms_Listview_Image - Fatal编程技术网

Vb.net listview互动程序不显示图像(.NET2.0、VB、winforms)

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

我试图用海报和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

您需要设置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)