如何使用ObjectListView顯示圖像列表中的所有圖像？

Question

如何使用ObjectListView顯示圖像列表中的所有圖像？在ObjectListView的主頁中，他們展示瞭如何在C＃中完成此操作（我對c＃和委託並不擅長）。但我無法在VB.net中使用它。

Answer 1

這裏是他們的榜樣的直接轉換：

Me.mainColumn.ImageGetter = Function(row As Object) Do 
    Dim key As String = Me.GetImageKey(row) 
    If Not Me.listView.LargeImageList.Images.ContainsKey(key) Then 
     Dim smallImage As Image = Me.GetSmallImageFromStorage(key) 
     Dim largeImage As Image = Me.GetLargeImageFromStorage(key) 
     Me.listView.SmallImageList.Images.Add(key, smallImage) 
     Me.listView.LargeImageList.Images.Add(key, largeImage) 
    End If 
    Return key 
End Function 

，因爲它使用一個內聯函數，將只與最新版本的VB.NET的工作。你可以改變它像這樣的舊版本：

創建類似的功能：

Public Function GetImageFromList(row As Object) As String 
     Dim key As String = Me.GetImageKey(row) 
     If Not Me.listView.LargeImageList.Images.ContainsKey(key) Then 
      Dim smallImage As Image = Me.GetSmallImageFromStorage(key) 
      Dim largeImage As Image = Me.GetLargeImageFromStorage(key) 
      Me.listView.SmallImageList.Images.Add(key, smallImage) 
      Me.listView.LargeImageList.Images.Add(key, largeImage) 
     End If 
     Return key 
End Function 

然後設置你的形象getter是否列之如：

Me.mainColumn.ImageGetter = AddressOf GetImageFromList