1. VB.NET中的List(Of T)基础概念在VB.NET中List(Of T)是System.Collections.Generic命名空间中最常用的集合类型之一。它本质上是一个动态数组提供了比传统数组更强大的功能。我第一次接触List(Of T)是在处理一个需要动态增删数据的项目时传统数组的固定长度限制让我头疼不已而List(Of T)完美解决了这个问题。List(Of T)中的T代表泛型类型参数这意味着我们可以创建任何类型的安全集合。比如List(Of String)存储字符串集合List(Of Integer)存储整数集合。这种强类型特性避免了类型转换错误是VB.NET类型安全的重要体现。与ArrayList相比List(Of T)最大的优势在于编译时类型检查不需要频繁装箱拆箱对值类型特别重要更好的性能表现2. List(Of T)的初始化与基本操作2.1 创建和初始化List创建List(Of T)有多种方式每种方式都有其适用场景 方式1创建空列表 Dim names As New List(Of String) 方式2创建并初始化VB 2010及以上版本支持集合初始化器 Dim primes As New List(Of Integer) From {2, 3, 5, 7, 11} 方式3从数组创建 Dim colorsArray() As String {Red, Green, Blue} Dim colors As New List(Of String)(colorsArray) 方式4指定初始容量当你知道大概元素数量时 Dim bigList As New List(Of Double)(1000)在实际项目中我通常会根据数据来源选择初始化方式。如果数据来自数据库查询方式1配合AddRange最常用如果是硬编码的配置数据方式2更简洁。2.2 添加和访问元素Dim fruits As New List(Of String) 添加单个元素 fruits.Add(Apple) fruits.Add(Banana) 添加多个元素 fruits.AddRange({Orange, Mango, Grape}) 插入元素 fruits.Insert(1, Peach) 在索引1处插入 访问元素 Dim firstFruit As String fruits(0) Apple Dim lastFruit As String fruits(fruits.Count - 1) Grape一个常见错误是直接访问不存在的索引。比如当列表为空时访问fruits(0)会抛出ArgumentOutOfRangeException。安全的做法是先检查Count属性If fruits.Count 0 Then Console.WriteLine(fruits(0)) End If2.3 删除元素 按值删除删除第一个匹配项 fruits.Remove(Banana) 按索引删除 fruits.RemoveAt(0) 删除第一个元素 删除所有匹配项 fruits.RemoveAll(Function(f) f.StartsWith(A)) 删除所有以A开头的水果 清空列表 fruits.Clear()在删除操作中Remove和RemoveAll使用的是相等性比较。对于自定义类型需要确保正确实现了Equals方法否则可能会出现无法删除的情况。3. List(Of T)的高级用法3.1 容量(Capacity)与计数(Count)List(Of T)内部使用数组存储元素Capacity表示内部数组的长度Count表示实际元素数量。当添加元素导致Count超过Capacity时List会自动扩容通常是当前容量的2倍。Dim numbers As New List(Of Integer)(4) 初始容量4 Console.WriteLine($初始容量: {numbers.Capacity}) 4 For i As Integer 1 To 5 numbers.Add(i) Console.WriteLine($Count: {numbers.Count}, Capacity: {numbers.Capacity}) Next 输出 Count: 1, Capacity: 4 ... Count: 5, Capacity: 8 (自动扩容)在性能敏感的场景合理设置初始容量可以减少扩容带来的性能损耗。我曾在处理10万条数据时预先设置容量使性能提升了约15%。3.2 查找和判断Dim numbers As New List(Of Integer) From {1, 3, 5, 7, 9} 判断是否存在 Dim hasFive As Boolean numbers.Contains(5) True 查找索引 Dim indexOfSeven As Integer numbers.IndexOf(7) 3 Dim lastIndexOf As Integer numbers.LastIndexOf(3) 1 使用谓词查找 Dim firstEven As Integer numbers.Find(Function(n) n Mod 2 0) 0没找到 Dim allEvens As List(Of Integer) numbers.FindAll(Function(n) n Mod 2 0) 空列表对于复杂查找Find方法比Where(LINQ)更高效因为它找到第一个匹配项就返回而不是遍历整个集合。3.3 排序和反转Dim unsorted As New List(Of Integer) From {3, 1, 4, 2} 默认排序升序 unsorted.Sort() 1, 2, 3, 4 自定义排序 unsorted.Sort(Function(x, y) y.CompareTo(x)) 降序4, 3, 2, 1 反转顺序 unsorted.Reverse() 1, 2, 3, 4对于自定义类型可以实现IComparable接口或提供Comparison委托Class Person Public Property Name As String Public Property Age As Integer Public Shared Function CompareByAge(p1 As Person, p2 As Person) As Integer Return p1.Age.CompareTo(p2.Age) End Function End Class Dim people As New List(Of Person) From { New Person With {.Name Alice, .Age 30}, New Person With {.Name Bob, .Age 25} } people.Sort(AddressOf Person.CompareByAge)4. List(Of T)的实际应用示例4.1 数据分组处理假设我们需要处理一批订单数据按客户分组计算总金额Class Order Public Property CustomerId As Integer Public Property Amount As Decimal End Class Dim orders As New List(Of Order) From { New Order With {.CustomerId 1, .Amount 100}, New Order With {.CustomerId 2, .Amount 200}, New Order With {.CustomerId 1, .Amount 150} } 按客户ID分组 Dim grouped orders.GroupBy(Function(o) o.CustomerId) For Each group In grouped Console.WriteLine($客户 {group.Key} 的总金额: {group.Sum(Function(o) o.Amount)}) Next4.2 批量数据操作处理大型数据集时合理使用List的方法可以显著提高性能 批量添加 Dim largeList As New List(Of Integer) Dim dataToAdd() As Integer GetHugeArrayFromSomewhere() 假设返回大量数据 largeList.AddRange(dataToAdd) 比循环Add高效得多 批量删除 largeList.RemoveAll(Function(x) x 0) 删除所有负数4.3 与数组的转换List和数组经常需要互相转换 List转数组 Dim fruitArray() As String fruits.ToArray() 数组转List Dim newList As New List(Of String)(fruitArray) 更简洁的方式VB 2019 Dim quickList As List(Of String) fruitArray.ToList()在处理文件I/O或与旧代码交互时这种转换非常常见。需要注意的是ToList()和ToArray()都会创建新的集合修改这些新集合不会影响原List。5. 性能优化与最佳实践5.1 容量预分配当你知道大概的元素数量时预先设置容量可以避免多次扩容 不好可能多次扩容 Dim list1 As New List(Of Integer) For i As Integer 1 To 10000 list1.Add(i) Next 更好预先分配足够容量 Dim list2 As New List(Of Integer)(10000) For i As Integer 1 To 10000 list2.Add(i) Next在我的性能测试中处理10万个元素时预分配容量比不预分配快约30%。5.2 避免频繁的Add操作对于大量数据使用AddRange比循环Add更高效 低效 For Each item In hugeCollection myList.Add(item) Next 高效 myList.AddRange(hugeCollection)5.3 使用正确的查找方法根据需求选择最合适的查找方法 只需要知道是否存在Contains最快 If myList.Contains(target) Then ... 需要位置信息IndexOf Dim pos myList.IndexOf(target) 复杂条件查找Find/FindAll Dim match myList.Find(Function(x) x.Property value)5.4 考虑使用For循环代替For Each在极高性能要求的场景For循环比For Each略快 通常这样写可读性好 For Each item In myList 处理item Next 性能更高差异通常很小 For i As Integer 0 To myList.Count - 1 Dim item myList(i) 处理item Next不过在实际项目中除非确实遇到性能瓶颈否则建议优先考虑代码可读性。5.5 线程安全考虑List(Of T)不是线程安全的。在多线程环境下应该使用锁或其他同步机制Private Shared myList As New List(Of String) Private Shared listLock As New Object() 线程安全的添加操作 SyncLock listLock myList.Add(new item) End SyncLock或者考虑使用System.Collections.Concurrent命名空间中的线程安全集合如ConcurrentBag(Of T)。