Как мне получить доступ к ключам коллекции во время «Для каждого» в VB.net?

Question

У меня есть такой код:

Dim col As Collection = New Collection
col.Add(value1, "key1")
col.Add(value2, "key2")

' later...
For Each item As String In col
    ' want to get valueX and keyX here; currently, "item" holds the value
Next

Как я могу получить и значение, и ключ внутри цикла?Может быть, есть другой класс, который делает это проще?

Answer 1

Я бы использовал общий словарь...

 Imports System.Collections.Generic  'at top of file

    Dim col As New Dictionary(Of String, Of Object) 'or whatever type
    col.Add("key1", value1)
    col.Add("key2", value2)    

    For Each item as KeyValuePair(of String, Object) in col
           Console.WriteLine(item.key & ": " & item.value)
    Next