Mega Code Archive

 

Categories / VB.Net / Data Structure

 

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