VB.Net by API/System.Collections/SortedList

SortedList.Add

  
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

SortedList.GetByIndex

  
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

SortedList.GetKey

  
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