Mega Code Archive

 

Categories / VB.Net by API / System

 

Array Sort

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