Listview和imagelist

Question

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

这是我的代码：

    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

Answer 1

好的。我发现了问题。

我只需要将Dim imageList作为新的ImageList()移到Sub过程之外。

我只需要再想一想！该死的!

谢谢，JLuc01