ListView.ItemChecked事件使用求助：提取选中记录数据

嘿，我来帮你排查这段代码的问题！你的思路是对的，但大概率是碰到了SubItems索引越界的情况——毕竟如果你的ListView没有至少5列（因为SubItems从0开始计数，SubItems(4)对应第五列），或者当前项的子项数量不足，运行时肯定会报错。

先给你一个更安全的改进版本，先判断子项数量再访问，避免崩溃：

Private Sub lvDetail_ItemChecked(sender As Object, e As ItemCheckedEventArgs) Handles lvDetail.ItemChecked
    ' 先检查子项数量是否足够，防止索引越界
    If e.Item.SubItems.Count > 4 Then
        If e.Item.Checked Then
            MsgBox("Selected: " & e.Item.SubItems(4).Text)
        Else
            MsgBox("Deselected: " & e.Item.SubItems(4).Text)
        End If
    Else
        MsgBox("当前选中项没有第5列的数据哦！")
    End If
End Sub

另外还有个更靠谱的小技巧：如果你的ListView是绑定了数据源的，建议把需要的额外数据存在Item的Tag属性里，这样不用依赖列索引（毕竟列的顺序可能会变），更稳定。比如你添加项的时候可以这么做：

' 假设你有个实体类或者要存储的ID
Dim item As New ListViewItem("第一列内容")
item.SubItems.Add("第二列内容")
' 继续添加其他列...
item.Tag = 你的数据对象 ' 比如用户ID、实体实例等
lvDetail.Items.Add(item)

然后在ItemChecked事件里直接取Tag：

Private Sub lvDetail_ItemChecked(sender As Object, e As ItemCheckedEventArgs) Handles lvDetail.ItemChecked
    If e.Item.Tag IsNot Nothing Then
        ' 把Tag转换为你的数据类型，比如CType(e.Item.Tag, UserModel)
        Dim targetData = e.Item.Tag
        Dim displayText = If(TypeOf targetData Is String, targetData.ToString(), targetData.YourPropertyName)
        
        If e.Item.Checked Then
            MsgBox("Selected: " & displayText)
        Else
            MsgBox("Deselected: " & displayText)
        End If
    End If
End Sub

最后再提个小注意点：ListView初始化的时候，ItemChecked事件可能会自动触发几次（比如默认选中项的情况），如果这时候你的项还没完全加载，也可能出问题，上面的判断逻辑也能帮你规避这种情况。

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