Mega Code Archive

 

Categories / VB.Net Tutorial / Collections

 

Retrieve all values, sort and iterate

Option Strict On Imports System.Collections Public Module modMain    Public Sub Main()       Dim airports As New Hashtable       airports.Add("S", "SSS")       airports.Add("X", "XXX")       airports.Add("D", "DDD")       airports.Add("R", "RRR")              Dim values As ICollection = airports.Values       Dim valuesArray(airports.Count - 1) As String       values.CopyTo(valuesArray, 0)       Array.Sort(valuesArray)       Console.WriteLine()       For Each value As String in valuesArray          Console.WriteLine(value)       Next    End Sub End Module DDD RRR SSS XXX