Imports System.Collections.Specialized
public class Test
public Shared Sub Main
Dim nvc As New NameValueCollection
nvc.Add("Food", "Sandwich")
nvc.Add("Food", "Salad")
nvc.Add("Food", "Taco")
nvc.Add("Dessert", "Ice Cream")
nvc.Add("Dessert", "Pie")
nvc.Add("Dessert", "Cake")
nvc.Add("Dessert", "Cookie")
Dim values() As String
For Each key As String In nvc.Keys
Console.WriteLine(key & ":")
values = nvc.GetValues(key)
For Each value As String In values
Console.WriteLine(" " & value)
Next value
Next key
For Each key As String In nvc.Keys
Console.WriteLine(key & ": " & nvc.Item(key))
Next key
End Sub
End class
|