VB中的ChecklistBox到ListView

Question

我正在开发一个 Visual Basic 项目，我的代码需要帮助。

我的问题是我有一个包含四列的 ListView，我想在 ListView 的第四列中显示 ChecklistBox（名为“Extra”）中选中的项目。 [图片]这是表格

这是我的代码

Public Class Form1
    Dim CurrentItem As Integer = 0
    Private Sub btnAddBurger_Click(sender As Object, e As EventArgs) Handles btnAddBurger.Click
        If optChicken.Checked Then
            lstOrderView.Items.Add("Chicken")
        Else
            lstOrderView.Items.Add("Ground Beef")
        End If

        If optFries.Checked Then
            lstOrderView.Items(CurrentItem).SubItems.Add("Fries")
        ElseIf optOnionRing.Checked Then
            lstOrderView.Items(CurrentItem).SubItems.Add("Onion Ring"
        End If

        If optWater.Checked Then
            lstOrderView.Items(CurrentItem).SubItems.Add("Water")
        ElseIf optCoke.Checked Then
            lstOrderView.Items(CurrentItem).SubItems.Add("Coke")
        ElseIf optLemonade.Checked Then
            lstOrderView.Items(CurrentItem).SubItems.Add("Lemonade")
        End If
    End Sub

[图片] 这就是结果。

我期望的是，当我检查 ChecklistBox 中的项目时，这些项目应该出现在 ListView 的“Extra”列中。我该如何编写代码来实现这一目标？我应该使用什么特定的方法或事件吗？

Answer 1

也许真的回答OP比较好，以后就容易多了？

lstOrderView.Items(CurrentItem).SubItems.Add(
    String.Join(", ", From i In optExtras.CheckedIndices Select optExtras.Items(i)))