Visual Basic中Listbox如何检测列表项取消选中并触发操作

该需求完全可以实现，无需依赖第三方控件，通过ListBox原生事件搭配简单的状态记录，就能精准捕获原有选中项被取消、选中项发生切换的动作节点，触发自定义处理逻辑。

ListBox原生没有单独提供「列表项取消选中」的专属事件，所以核心思路是提前留存上一次选中项的标识，在选中状态变化时做新旧值对比，即可定位到刚被取消选中的项：

• 在窗体/模块层级定义模块级变量，用来存储历史选中项的索引，不要把变量定义在事件过程内部，否则过程执行完毕后变量值会被释放，无法留存历史状态
• 选择ListBox对应的选中变化事件作为逻辑触发入口：VB.NET场景用SelectedIndexChanged事件，VB6/VBA场景用Click事件即可，键盘方向键切换选中、鼠标点击切换选中都会触发这两个事件，不需要额外做键盘监听
• 事件触发后先做判断：如果留存的历史选中索引和当前最新的选中索引不一致，且历史索引不是初始无选中的状态，就说明发生了选中切换，历史索引对应的项就是刚被取消选中的项，此时直接执行预设的处理逻辑即可
• 自定义逻辑执行完成后，把当前最新的选中索引更新到模块级变量中，供下一次选中变化时对比使用

VB.NET WinForm 场景 #

首先在窗体类的最外层定义模块级变量：

' 初始值设为-1，代表ListBox初始加载时无任何选中项
Private lastSelectedIndex As Integer = -1

为ListBox绑定选中变化事件，写入处理逻辑：

Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
    Dim targetList As ListBox = CType(sender, ListBox)
    Dim currentIndex As Integer = targetList.SelectedIndex

    ' 检测到旧选中项被取消、选中发生切换
    If lastSelectedIndex <> -1 AndAlso lastSelectedIndex <> currentIndex Then
        ' 此处就是你需要的动作触发节点
        ' 可通过 targetList.Items(lastSelectedIndex) 获取刚被取消选中的项的完整内容
        ' 下方写入你的自定义处理逻辑即可，比如保存旧项关联的输入、重置旧项绑定的控件状态等
        MessageBox.Show($"列表项【{targetList.Items(lastSelectedIndex)}】已被取消选中，即将切换到新选中项")
    End If

    ' 更新历史选中索引，供下次触发时对比
    lastSelectedIndex = currentIndex
End Sub

VB6 / VBA 场景（含Office VBA、VB6桌面程序） #

在窗体模块的最顶部定义模块级变量：

' 初始值设为-1，代表初始无选中项
Private lastSelectedIndex As Long

在ListBox的点击事件中写入处理逻辑：

Private Sub ListBox1_Click()
    Dim currentIndex As Long
    currentIndex = ListBox1.ListIndex
    
    ' 检测到选中项切换、旧项被取消
    If lastSelectedIndex <> -1 And lastSelectedIndex <> currentIndex Then
        ' 此处为动作触发节点
        ' 可通过 ListBox1.List(lastSelectedIndex) 获取被取消选中的项内容
        ' 写入自定义处理逻辑
        MsgBox "原选中项【" & ListBox1.List(lastSelectedIndex) & "】已取消选中"
    End If
    
    ' 更新历史选中索引
    lastSelectedIndex = currentIndex
End Sub

• 如果你的ListBox开启了多选模式（SelectionMode设置为多选），需要把模块级存储的变量从单个索引值改为存储所有选中项索引的集合/数组，每次事件触发时对比新旧集合的差集，不在新集合中的索引对应的项就是本次被取消选中的项
• 首次加载ListBox、给ListBox绑定数据源、清空ListBox项的时候，记得把存储历史选中的变量重置为初始值-1（多选场景下清空对应集合），避免初始化赋值时误触发取消选中的处理逻辑
• 如果需要区分用户主动触发的选中切换和代码修改选中项触发的切换，可以额外加一个布尔型的控制标记，代码修改选中项前把标记设为True，事件里判断到标记为True时跳过自定义逻辑，执行完再把标记改回False即可

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