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"))
?statecaps.ContainsKey("WA")
True
?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含有一个关键字，可方便查询；
‘ 下面建立了一个包含有结构的字典，以便查询。
‘==========================================================
Structure CellStructure
Dim ColPos As Integer
Dim RowPos As Integer
Dim mergeBound As System.Drawing.Rectangle
End Structure
Dim MergeCellDictionary As New Dictionary(Of String, CellStructure)
With MergeCellDictionary
Dim cellOne As CellStructure
cellOne.mergeBound.Height = 50
‘ 在字典可增加了一个记录，关键字为“BeginCell”
.Item("BeginCell") = cellOne
‘ 也可用下面一句代替：
‘ .Add(“BeginCell”,cellOne)
End With
‘ 取得字典中关键字为“BeginCell”的内容：
Trace.Writeline(mergecelldictionary.Item("BeginCell").mergeBound.Height )
50
==================================================================
字典数组：
'定义字典。
Dim DicArray(3) As Dictionary(Of String, String)
For i = 0 To 3
DicArray(i) = New Dictionary(Of String, String)
Next
DicArray(0).Item("Alen") = "outing"
DicArray(0).Item("Andrea") = "eating1"
Debug.WriteLine(DicArray(0)("Andrea"))
Debug.WriteLine(DicArray(0)("Alen"))
DicArray(0)("Andrea") = "123"
Debug.WriteLine(DicArray(0)("Andrea"))
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"))
?statecaps.ContainsKey("WA")
True
?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含有一个关键字，可方便查询；
‘ 下面建立了一个包含有结构的字典，以便查询。
‘==========================================================
Structure CellStructure
Dim ColPos As Integer
Dim RowPos As Integer
Dim mergeBound As System.Drawing.Rectangle
End Structure
Dim MergeCellDictionary As New Dictionary(Of String, CellStructure)
With MergeCellDictionary
Dim cellOne As CellStructure
cellOne.mergeBound.Height = 50
‘ 在字典可增加了一个记录，关键字为“BeginCell”
.Item("BeginCell") = cellOne
‘ 也可用下面一句代替：
‘ .Add(“BeginCell”,cellOne)
End With
‘ 取得字典中关键字为“BeginCell”的内容：
Trace.Writeline(mergecelldictionary.Item("BeginCell").mergeBound.Height )
50
==================================================================
字典数组：
'定义字典。
Dim DicArray(3) As Dictionary(Of String, String)
For i = 0 To 3
DicArray(i) = New Dictionary(Of String, String)
Next
DicArray(0).Item("Alen") = "outing"
DicArray(0).Item("Andrea") = "eating1"
Debug.WriteLine(DicArray(0)("Andrea"))
Debug.WriteLine(DicArray(0)("Alen"))
DicArray(0)("Andrea") = "123"
Debug.WriteLine(DicArray(0)("Andrea"))
转自：http://blog.sina.com.cn/s/blog_57c8bb310100kj85.html
