VB.NET ListBox禁止选中含等号项 点击后自动取消选择

你现有代码在多选场景失效是两个逻辑错误导致的：

• 索引不匹配：你遍历SelectedItems集合时用的循环变量是选中集合的索引，但直接拿这个索引访问全量项集合ListBox1.Items(I)，二者的索引完全不对应。比如你选中了列表里的第4、第8项，SelectedItems的索引0、1对应的实际项位置是4、8，你用I=0、1取到的是列表前2项，根本不是实际选中的项，多选时判断必然出错。
• 遍历异常：你在遍历SelectedItems集合的过程中调用SetSelected修改选中状态，会直接改动SelectedItems集合本身的内容，导致遍历过程中集合长度、索引动态变化，逻辑错乱。

不要直接遍历动态变化的选中项集合，先把当前所有选中项的索引拷贝到独立的固定数组中，再遍历这个数组做判断，就不会受选中状态变动的影响；同时可以优先定位当前鼠标点击的项，响应更及时。

Private Sub ListBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles ListBox1.MouseClick
    ' 将当前所有选中项的索引拷贝到独立数组，避免遍历过程中集合变动
    Dim selectedIndexArr = ListBox1.SelectedIndices.Cast(Of Integer)().ToArray()
    Dim existInvalidSelect As Boolean = False

    For Each itemIndex In selectedIndexArr
        Dim itemContent = ListBox1.Items(itemIndex).ToString()
        ' 规则判断：当前逻辑为「不包含=的项禁止选中」，和你代码注释的规则一致
        ' 如果需求是「包含=的项禁止选中」，删掉判断条件里的Not即可
        If Not itemContent.Contains("=") Then
            ListBox1.SetSelected(itemIndex, False)
            existInvalidSelect = True
        End If
    Next

    ' 存在无效选中时弹出提示
    If existInvalidSelect Then
        MsgBox("Please only select items that have = in description ! ! ! Edit item if you want to include . . .", MsgBoxStyle.Critical)
    End If
End Sub

方案说明 #

• 兼容所有选择场景：单选、按住Ctrl/Shift多选、已有多个选中项再点击新项的场景都可以正常判断
• 不需要额外调用ListBox1.Refresh()，SetSelected方法会自动触发列表框重绘
• 提示弹窗只会在存在无效选中时触发一次，不会重复弹出

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