Listview和圖像列表

我想使用ListView（lvImage.View = View.Tile），但我無法獲取圖像。也許是一個經典的問題，但儘管我可以在互聯網上找到，但我仍然陷入困境。這個鏈接也沒有幫助我：MSDN ListView。我也嘗試使用ListViewItem的屬性ImageIndex，但沒有成功。Listview和圖像列表

這裏是我的代碼：

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

列表框工作正常，但我想在ListView中移動。沒有圖像顯示在我的ListView中，只有文本存在並且圖像爲空。

任何幫助將不勝感激。謝謝，

JLuc01

來源

2016-01-23 JLuc01

確定。我發現了這個問題。

我只需要移動：Dim imageList作爲新的ImageList（）在Sub過程之外。

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

謝謝， JLuc01

來源

2016-01-23 20:00:50 JLuc01

Listview和圖像列表

回答

相關問題