VB.Net/Data Structure/NameValueCollection

Simple Demo for NameValueCollection

<source lang="vbnet"> Imports System Imports System.Collections Imports System.Collections.Specialized

Public Class MainClass

   Shared Sub Main(ByVal args As String())
       Dim nvc As New NameValueCollection
       nvc.Add("Value 1", "Key 1")
       nvc.Add("Value 2", "Key 2")
       nvc.Add("Value 3", "Key 3")
       nvc.Add("Value 4", "Key 4")
       nvc.Add("Value 5", "Key 5")
       nvc.Add("Value 6", "Key 6")
       nvc.Add("Value 7", "Key 7")
       Dim values() As String
       For Each key As String In nvc.Keys
           Console.Write(key & ":")
           values = nvc.GetValues(key)
           For Each value As String In values
               Console.WriteLine("    " & value)
           Next value
       Next key
       Console.WriteLine()
       For Each key As String In nvc.Keys
           Console.WriteLine(key & ": " & nvc.Item(key))
       Next key
       
   End Sub

End Class

      </source>