怎么可以在vb.net中的Dictionary中迭代？

发布时间：2020-12-17 00:00:49 所属栏目：大数据来源：网络整理

导读：我创建一个字典 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") o

我创建一个字典

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

Make 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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!