Como faço para acessar as chaves Coleção durante For Each em VB.net?

Question

Eu tenho algum código como este:

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

Como posso obter o valor e chave dentro do loop? Talvez haja outra classe que torna isso mais fácil?

Answer 1

Eu usaria um genérico dicionário ...

 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