//在 .NET种又2种集合 一种是 VB的 collection 集合 另一种是 .NET Framework 的泛型集合

////VB的collection集合 和 .NET下的泛型集合 泛型集合限定了 键值对的类型

1. VB的collection集合

Module Module1

Sub Main()
Dim col As New Microsoft.VisualBasic.Collection()
col.Add(1,"firstkey")
col.Add(2,"secondkey")
col.Add(3,"thirdkey")
Dim num As Integer
num = col.Count
Dim a As Integer
For a = 1 To num
Console.WriteLine(col.Item(a).ToString()) //VB的 collection集合
Next

MsgBox("")

End Sub

End Module

2. .NET 的Dicoionary 泛型集合 KeyValuePair键值对类型 可以用for each ....next 语句来遍历 泛型集合 元素 下面是代码

Module Module1

Sub Main()
Dim col As New Dictionary(Of String,String)
col.Add("1","item1")
col.Add("2","item2")
col.Add("3","item3")
col.Add("4","item4")
Dim aPair As KeyValuePair(Of String,String)
For Each aPair In col
Console.WriteLine(aPair.Key + Space(2) + aPair.Value)
Next
MsgBox("")

End Sub

End Module