كيف يمكنني الوصول إلى مفاتيح المجموعة أثناء كل منها في 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