Mega Code Archive
Scanning items in a collection
<![CDATA[
Public Class Tester
Public Shared Sub Main
Dim numberCollection As New Collection
numberCollection.Add(14, "C")
numberCollection.Add(25, "D")
numberCollection.Add(36, "E")
numberCollection.Add(47, "A")
numberCollection.Add(58, "B")
' ----- Scan the collection with a loop counter.
' Collections are base-1, not base-0.
For counter As Integer = 1 To numberCollection.Count
Console.WriteLine(numberCollection(counter))
Next counter
' ----- Scan the collection by item.
For Each number As Integer In numberCollection
Console.WriteLine(number)
Next number
' ----- Retrieve items by key.
Console.WriteLine(numberCollection("A"))
Console.WriteLine(numberCollection("B"))
Console.WriteLine(numberCollection("C"))
Console.WriteLine(numberCollection("D"))
Console.WriteLine(numberCollection("E"))
End Sub
End Class
14
25
36
47
58
14
25
36
47
58
47
58
14
25
36
]]>