NameValueCollection.GetValues : NameValueCollection « System.Collections.Specialized « VB.Net by API

1. VB.Net by API
2. System.Collections.Specialized
3. NameValueCollection

NameValueCollection.GetValues

  

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

   
    
  

Related examples in the same category