列表视图和图像列表

Question

我正在尝试使用 ListView (lvImage.View = View.Tile)，但我无法获取图像。也许是一个经典问题，但尽管我可以在互联网上找到，但我还是被困住了。这个 link 也没有帮助我：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 中没有显示图像，只有文本存在，图像为空 space。

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

JLuc01

Answer 1

好的。我发现了问题。

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

我只是需要更加努力地思考！妈的！

谢谢， JLuc01

列表视图和图像列表

Listview and imagelist

vb.net

listview

image

imagelist