列表视图和图像列表答案

【问题标题】：Listview and imagelist列表视图和图像列表
【发布时间】：2016-01-24 04:00:50
【问题描述】：

我正在尝试使用 ListView (lvImage.View = View.Tile)，但无法获取图像。也许是一个经典问题，但尽管我可以在互联网上找到什么，我还是被卡住了。这个链接也没有帮助我：MSDN ListView。我也尝试使用 ListViewItem 的属性 ImageIndex，但没有成功。

这是我的代码：

    Private Sub btnAddImage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddImage.Click
    ' Add an Image
    Dim myOpenFileDialog As New OpenFileDialog
    myOpenFileDialog.Title = "Image loading..."
    myOpenFileDialog.Multiselect = True
    If (myOpenFileDialog.ShowDialog = Windows.Forms.DialogResult.OK) Then
        If (myOpenFileDialog.FileNames IsNot Nothing) Then
            Dim i As Integer
            For i = 0 To myOpenFileDialog.FileNames.Length - 1
                addImage(myOpenFileDialog.FileNames(i))
                iCounter = iCounter + 1
            Next i
        End If
    End If
End Sub

Private Sub addImage(ByVal imageToLoad As String)
    'LISTBOX
    lstImageBox.BeginUpdate()
    myImageList.Add(New myImage(iCounter, imageToLoad, System.IO.Path.GetFileName(imageToLoad), 300, 100, 180, 120, 0))
    lstImageBox.Items.Add(System.IO.Path.GetFileName(imageToLoad))
    lstImageBox.EndUpdate()
    'LISTVIEW
    'lvImage.View = View.Tile
    Dim imageList As New ImageList()
    imageList.ImageSize = New Size(40, 40)
    imageList.Images.Add(Bitmap.FromFile(imageToLoad))
    lvImage.LargeImageList = imageList
    Dim item As New ListViewItem(System.IO.Path.GetFileName(imageToLoad))
    lvImage.Items.Add(item)
End Sub

ListBox 工作正常，但我想继续使用 ListView。我的 ListView 中没有显示任何图像，只有文本存在并且图像有一个空白区域。

任何帮助将不胜感激。谢谢，

JLuc01

【问题讨论】：

标签： vb.net image listview imagelist

【解决方案1】：

好的。我发现了问题。

我只需要移动：Dim imageList As New ImageList() 在 Sub 过程之外。

我只是需要更努力地思考！该死！

谢谢， JLuc01

【讨论】：