VB.Net Tutorial/Collections/NameValueCollection

NameValueCollection

<source lang="vbnet">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</source>

Food:
    Sandwich
    Salad
    Taco
Dessert:
    Ice Cream
    Pie
    Cake
    Cookie
Food: Sandwich,Salad,Taco
Dessert: Ice Cream,Pie,Cake,Cookie