VB.Net by API/System.Collections/SortedList
SortedList.Add
<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>
SortedList.GetByIndex
<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>
SortedList.GetKey
<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>