VB.Net/Data Structure/SortedList

Create Case Insensitive Sorted List

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

Public Class MainClass

   Shared Sub Main(ByVal args As String())
       Dim sorted_list As SortedList
       " Use a case-insensitive SortedList.
       sorted_list = CollectionsUtil.CreateCaseInsensitiveSortedList()
       sorted_list.Add("S", "Volleyball")
       "sorted_list.Add("s", "Golf")        " Error because Sport = sport.
       
       For Each obj As Object In sorted_list
           Console.WriteLine(obj)
       Next obj
       
   End Sub

End Class

      </source>

Output Items in a SortedList

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

Public Class MainClass

   Shared Sub Main(ByVal args As String())
       Dim sortedList As New SortedList
       sortedList.Add("2", "T")
       sortedList.Add("0", "T")
       sortedList.Add("1", "O")
       sortedList.Add("6", "S")
       For i As Integer = 0 To sortedList.Count - 1
           Console.WriteLine(sortedList.GetKey(i).ToString() & ": " & _
               sortedList.GetByIndex(i).ToString())
       Next i
       sortedList.Clear()
   End Sub

End Class

      </source>

Simple Example for Sorted List

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

Public Class MainClass

   Shared Sub Main(ByVal args As String())
       Dim sorted_list As SortedList
       " Use a normal, case-sensitive SortedList.
       sorted_list = New SortedList
       sorted_list.Add("A", "A")
       sorted_list.Add("a", "B")        
       
       For Each obj As Object In sorted_list
           Console.WriteLine(obj)
       Next obj
       
   End Sub

End Class

      </source>