VB.Net/Data Structure/SortedList

Create Case Insensitive Sorted List

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

Output Items in a SortedList

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

Simple Example for Sorted List

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