Mega Code Archive

 

Categories / VB.Net by API / System Collections

 

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