vb.net - 如何在 VB.net 中的 For Each 期间访问 Collection 键？

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