Dim stateCaps As New Dictionary(Of String, String)
' Add items to the dictionary
stateCaps.Add("WA", "Olympia")
stateCaps.Add("NM", "Santa Fe")
Trace.WriteLine(stateCaps.Item("WA")) 'True
Trace.WriteLine(statecaps.ContainsValue("Olympia")) 'True
Dim stateCaps As New Dictionary(Of String, String())
stateCaps.Add("WA", New String() {"Olympia", "aaa"})
stateCaps.Add("NM", New String() {"Santa Fe"})
?statecaps.Item("WA")
{Length=2}
(0): "Olympia"
(1): "aaa"
?statecaps.Item("WA")(0)
"Olympia"
Dim Dstr(0) as String
得到字典中的以“WA”为键的值
statecaps.TryGetValue("WA",dstr)
For Each kvp As KeyValuePair(Of String, String()) In stateCaps
Console.WriteLine("Key = {0}, Value = {1}", _
kvp.Key, kvp.Value(0))
Next kvp
‘得到全部值的集合:
Dim valueColl As _
Dictionary(Of String, String()).ValueCollection = _
stateCaps.Values
‘枚举得到全部值:
For Each s() As String In valueColl
Console.WriteLine("Value = {0}", s(0))
Next s
For Each capitol As String In stateCaps.Values
Next
‘==========================================================
‘ 字典Dictionary含有一个关键字,可方便查询;
‘ 下面建立了一个包含有结构的字典,以便查询。
‘==========================================================