VB.Net Tutorial/Collections/NameValueCollection
Версия от 19:40, 26 мая 2010; (обсуждение)
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