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 

は今、私はこの

Answer 1

があなたの辞書のキーとしてIntegerを作る行うことができますどのようにIMAGEIDを検索すると、そのキーを入力します。

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 

それはそれに非常に高速かつ簡単な方法です。