VB.Net - SortedList

SortedList 类表示键值对的集合，这些键值对按键排序，并且可以通过键和索引访问。

排序列表是数组和哈希表的组合。它包含一个项目列表，可以使用键或索引访问。如果使用索引访问项目，则为 ArrayList，如果使用键访问项目，则为 Hashtable。项目的集合始终按键值排序。

SortedList 类的属性和方法

下表列出了 SortedList 类的一些常用属性 -

序号	属性及说明
1	Capacity 获取或设置 SortedList 的容量。
2	Count 获取 SortedList 中包含的元素数。
3	IsFixedSize 获取一个值，该值指示 SortedList 是否具有固定大小。
4	IsReadOnly 获取一个值，该值指示 SortedList 是否为只读。
5	Item 获取和设置与 SortedList 中特定键关联的值。
6	Keys 获取 SortedList 中的键。
7	Values 获取 SortedList 中的值。

下表列出了 SortedList 类的一些常用方法 -

序号	方法名称及用途
1	Public Overridable Sub Add (key As Object, value As Object) 将具有指定键和值的元素添加到 SortedList 中。
2	Public Overridable Sub Clear 从 SortedList 中删除所有元素。
3	Public Overridable Function ContainsKey (key As Object) As Boolean 确定 SortedList 是否包含特定键。
4	Public Overridable Function ContainsValue (value As Object) As Boolean 确定 SortedList 是否包含特定值。
5	Public Overridable Function GetByIndex (index As Integer) As Object 获取 SortedList 中指定索引处的值。
6	Public Overridable Function GetKey (index As Integer) As Object 获取 SortedList 中指定索引处的键。
7	Public Overridable Function GetKeyList As IList 获取 SortedList 中的键。
8	Public Overridable Function GetValueList As IList 获取 SortedList 中的值。
9	Public Overridable Function IndexOfKey (key As Object) As Integer 返回 SortedList 中指定键的基于零的索引。
10	Public Overridable Function IndexOfValue (value As Object ) As Integer 返回 SortedList 中指定值的第一次出现的基于零的索引。
11	Public Overridable Sub Remove (key As Object) 从 SortedList 中删除具有指定键的元素。
12	Public Overridable Sub RemoveAt (index As Integer) 删除 SortedList 中指定索引处的元素。
13	Public Overridable Sub TrimToSize 将容量设置为 SortedList 中的实际元素数。

示例

以下示例演示了该概念 -

Module collections
   Sub Main()
      Dim sl As SortedList = New SortedList()
      sl.Add("001", "Zara Ali")
      sl.Add("002", "Abida Rehman")
      sl.Add("003", "Joe Holzner")
      sl.Add("004", "Mausam Benazir Nur")
      sl.Add("005", "M. Amlan")
      sl.Add("006", "M. Arif")
      sl.Add("007", "Ritesh Saikia")
      
      If (sl.ContainsValue("Nuha Ali")) Then
         Console.WriteLine("This student name is already in the list")
      Else
         sl.Add("008", "Nuha Ali")
      End If
       ' Get a collection of the keys. 
      Dim key As ICollection = sl.Keys
      Dim k As String
      
      For Each k In key
         Console.WriteLine(" {0} : {1}", k, sl(k))
      Next k
      Console.ReadKey()
   End Sub
End Module

当以上代码编译并执行时，它会产生以下结果 -

001: Zara Ali
002: Abida Rehman
003: Joe Holzner
004: Mausam Banazir Nur
005: M. Amlan 
006: M. Arif
007: Ritesh Saikia
008: Nuha Ali

vb.net_collections.htm

打印页面