Sözlük'te etc.net'de nasıl yineleyebilirsiniz?

Question

Ben bir sözlük

Dim ImageCollection As New Dictionary(Of ConvensionImages, Integer) 

oluşturmak ve ben

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 

şimdi ben bu

Answer 1

sizin Sözlük için anahtar olarak Integer olun nasıl yapabilirim ImageID aramak istediğiniz ve anahtar olduğunu doldurun:

Dim ImageCollection As New Dictionary(Of Integer, ConvensionImages) 

ImageCollection.Add(obj, key)ImageCollection.Add(key, obj)

Ve bu döngü kullanın:

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

Sen de döngü bu şekilde, can:

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

Kendisine çok hızlı ve basit bir yoludur.