vb.net - 如何在 vb.net 中的字典中进行迭代？

Question

我创建了一个字典

    Dim ImageCollection As New Dictionary(Of ConvensionImages, Integer)

我填写

 For Each dr As DataRow In dt.Rows
            Dim obj As New ConvensionImages
            obj.ImageID = dr("ID")
            obj.Name = dr("Name")
            obj.Description = dr("Description")
            obj.CategoryID = dr("CategoryID")
            obj.CategoryName = dr("CategoryName")
            obj.CategoryDescription = dr("CatDescription")
            obj.EventID = dr("EventID")
            obj.Image = dr("img")
            obj.DownloadImage = dr("DownLoadImg")
            ImageCollection.Add(obj, key)
            key = key + 1

现在我想搜索 ImageID 和 key 我该怎么做

Answer 1

Integer作为您的字典的键：

Dim ImageCollection As New Dictionary(Of Integer, ConvensionImages)

更改ImageCollection.Add(obj, key)为ImageCollection.Add(key, obj)

并使用这个循环：

For Each kvp As KeyValuePair(Of Integer, ConvensionImages) In ImageCollection
     Dim v1 As Integer = kvp.Key  
     Dim v2 As ConvensionImages = kvp.Value  
     'Do whatever you want with v2:
     'If v2.ImageID = .... Then
Next  

Answer 2

你也可以这样循环：

For Each iKey As Integer In ImageCollection.Keys
    Dim value As ConvensionImages = ImageCollection(iKey)
    '...
Next

这是非常快速和简单的方法。