VB中ListView执行SelectedItems.Clear()后仍保留选中项的问题

问题场景 #

我开发了一个Visual Basic家谱应用，可绘制个人与祖先的关系图。主界面选择本人后，“Stamlijn”窗体的代码会搜索祖先并在ListView中列出各分支最年长的成员，选中父系最年长成员（如Carolus Buelens）即可绘制关系图。

当返回主界面选择妻子并再次请求绘制时，“Stamlijn”类搜索其祖先并放入ListViewItem数组准备执行AddRange，原代码如下：

lvwMain.SelectedItems.Clear() : lvwMain.Items.Clear() 
lvwMain.Items.AddRange(lvis)

出现异常：执行SelectedItems.Clear()和Items.Clear()后，lvwMain仍认为存在选中项（即之前的Carolus Buelens）；添加新项（其中Antonius Hermans的Selected属性设为True）后，lvwMain.SelectedItems(0)仍指向Carolus Buelens，导致绘制关系图失败。

调试时修改代码：

lvwMain.SelectedItems.Clear() : lvwMain.Items.Clear() : lvwMain.Refresh()
Dim t As String = If(lvwMain.SelectedItems.Count > 0, lvwMain.SelectedItems(0).Text & _
                     lvwMain.SelectedItems(0).SubItems(1).Text & _
                     lvwMain.SelectedItems(0).SubItems(2).Text, "")
lvwMain.SelectedIndices.Clear()
lvwMain.Items.AddRange(lvis)

执行SelectedIndices.Clear()后旧选中项消失，但仍无法设置新选中项。通过全局变量绕过了首次绘图的问题，但后续插入ListView项时仍异常：添加9个项后，lvwMain.items.count为9，但除前两项外其余均为Nothing，测试插入位置失败，但直接插入末尾后，这些项又能正常显示。

问题分析 #

1. 选中项残留：WinForms ListView在执行Items.Clear()时，内部选中状态的清理可能存在延迟或未完全同步，尤其是UI线程未及时更新时，SelectedItems集合可能保留对已删除项的引用。
2. 新增项选中失效：若在添加到ListView前设置Selected属性，可能被控件内部逻辑覆盖；未彻底清除所有选中状态标记，也会导致新选中状态不生效。
3. 插入项异常：批量插入操作未使用控件的批量更新机制，会导致内部索引映射混乱，出现项引用为Nothing的情况。

解决方案 #

1. 彻底清除选中状态的正确步骤 #

不要仅调用SelectedItems.Clear()，需同时处理SelectedIndices，并强制同步控件状态：

' 先清除选中索引，再清空项集合
lvwMain.SelectedIndices.Clear()
lvwMain.Items.Clear()
' 强制同步UI状态，避免残留引用
lvwMain.Update()

注：Update()仅刷新需要重绘的区域，比Refresh()更高效，足以同步控件内部状态。

2. 正确设置新项的选中状态 #

不要在添加到ListView前设置Selected属性，应在AddRange完成后通过项引用或索引设置：

lvwMain.Items.AddRange(lvis)
' 遍历找到目标项并设置选中
For Each item As ListViewItem In lvwMain.Items
    If item.Text = "Antonius Hermans" Then
        item.Selected = True
        ' 可选：滚动到选中项，提升用户体验
        lvwMain.EnsureVisible(item.Index)
        Exit For
    End If
Next

若已知目标项索引，可直接设置：

lvwMain.Items.AddRange(lvis)
If lvwMain.Items.Count > 0 Then
    lvwMain.Items(0).Selected = True ' 假设目标项为第一个，可替换为实际索引
End If

3. 解决插入项异常问题 #

使用BeginUpdate()和EndUpdate()包裹批量插入操作，避免控件频繁重绘，确保内部索引同步：

' 开启批量更新，暂停UI刷新
lvwMain.BeginUpdate()
Try
    ' 执行插入操作，示例为插入第3到第9项
    For i As Integer = 2 To 8
        Dim newItem As New ListViewItem({"成员" & i, "分支信息1", "分支信息2"})
        lvwMain.Items.Insert(i, newItem)
    Next
Finally
    ' 结束批量更新，强制刷新控件
    lvwMain.EndUpdate()
    lvwMain.Update()
End Try

额外注意事项 #

• 所有ListView操作必须在主线程执行，避免跨线程操作导致的状态不同步。
• 清空ListView项后，及时将引用旧项的全局变量置空，避免内存泄漏和状态异常。

内容的提问来源于stack exchange，提问作者Kris Buelens