VB中如何将ChecklistBox选中项显示到ListView第四列？

首先，你的现有代码存在两处问题：

• CurrentItem 固定为0，多次点击添加按钮时会修改第一个ListView项而非新添加的项
• "Onion Ring" 行缺少闭合括号，会引发语法错误

以下是修正后的完整代码，同时实现了将名为Extra的CheckListBox中选中项添加到ListView第四列的功能：

Public Class Form1
    Private Sub btnAddBurger_Click(sender As Object, e As EventArgs) Handles btnAddBurger.Click
        ' 创建ListView项并直接引用该对象
        Dim newOrderItem As ListViewItem
        If optChicken.Checked Then
            newOrderItem = lstOrderView.Items.Add("Chicken")
        Else
            newOrderItem = lstOrderView.Items.Add("Ground Beef")
        End If

        ' 添加第二列（配菜）
        If optFries.Checked Then
            newOrderItem.SubItems.Add("Fries")
        ElseIf optOnionRing.Checked Then
            newOrderItem.SubItems.Add("Onion Ring") ' 修复缺少闭合括号的问题
        End If

        ' 添加第三列（饮料）
        If optWater.Checked Then
            newOrderItem.SubItems.Add("Water")
        ElseIf optCoke.Checked Then
            newOrderItem.SubItems.Add("Coke")
        ElseIf optLemonade.Checked Then
            newOrderItem.SubItems.Add("Lemonade")
        End If

        ' 收集Extra CheckListBox中的所有选中项，用逗号分隔
        Dim selectedExtras As String = ""
        For Each item As Object In Extra.CheckedItems
            If selectedExtras <> "" Then
                selectedExtras &= ", "
            End If
            selectedExtras &= item.ToString()
        Next

        ' 添加第四列（额外选项）
        newOrderItem.SubItems.Add(selectedExtras)
    End Sub
End Class

关键实现细节： #

• 直接引用新添加的ListView项：通过Items.Add()返回的ListViewItem对象操作，避免依赖固定索引，确保每次修改的都是刚添加的订单项。
• 收集选中的额外选项：遍历Extra.CheckedItems集合，将所有选中项文本拼接为一个字符串（逗号分隔），这样可以在第四列完整显示所有选中的额外选项。
• 无需额外事件：所有逻辑都在btnAddBurger_Click事件中完成，不需要额外绑定其他事件。

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