Imports System
Imports System.Collections
Imports System.Collections.Specialized
Public Class SamplesNameValueCollection
Public Shared Sub Main()
Dim myCol As New NameValueCollection()
myCol.Add("A", "aa")
myCol.Add("B", "bb")
myCol.Add("C", "cc")
myCol.Add("D", "dd")
PrintKeysAndValues(myCol)
PrintKeysAndValues2(myCol)
Console.WriteLine("Index 1 contains the value {0}.", myCol(1))
Console.WriteLine("Key ""red"" has the value {0}.", myCol("red"))
End Sub 'Main
Public Shared Sub PrintKeysAndValues(myCol As NameValueCollection)
Dim s As String
For Each s In myCol.AllKeys
Console.WriteLine(" {0,-10} {1}", s, myCol(s))
Next s
End Sub
Public Shared Sub PrintKeysAndValues2(myCol As NameValueCollection)
Dim i As Integer
For i = 0 To myCol.Count - 1
Console.WriteLine(" [{0}] {1,-10} {2}", i, myCol.GetKey(i), myCol.Get(i))
Next i
End Sub
End Class