¿Cómo puedo acceder a las claves de recogida durante For Each en VB.net?

Question

Tengo algo de código como el siguiente:

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

¿Cómo puedo obtener tanto el valor como clave dentro del bucle? Tal vez hay otra clase que hace que esto sea más fácil?

Answer 1

que haría uso de un diccionario genérico ...

 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