Question

我正在尝试使用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

Answer 1

行。我发现了问题。

我只需要移动：Dim imageList作为Sub过程之外的新ImageList（）。

我只需要更加努力思考！该死的！

谢谢， JLuc01

列表视图和图像列表

1 个答案: