如何在vb.net中的Dictionary中进行迭代？

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和密钥我该怎么做呢

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

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