如何处理多个选中项并在 msgbox 中一个一个循环地显示它们

Question

我想从CheckedListBox 中获取所有选中的项目，并将每个项目添加到变量，例如 item1、item2 等。

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    Dim item1 As String
    Dim item2 As String
    For i As Integer = 0 To CheckedListBox1.CheckedItems.Count - 1
        If i = 1 Then
            item1 = CheckedListBox1.CheckedItems(i)
            MsgBox(item1)
        ElseIf i > 1 Then
            item1 = CheckedListBox1.CheckedItems(i)
            item2 = CheckedListBox1.CheckedItems(i)
            MsgBox(item1 + item2)
        End If
    Next
End Sub

如何在MsgBox 中显示所有选定的项目？

Answer 1

如果问题只是您不确定如何处理多个选中项，只需使用 StringBuilder 而不是单个变量。

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    Dim sb As New StringBuilder()

    For i As Integer = 0 To CheckedListBox1.CheckedItems.Count - 1
        sb.AppendLine(CheckedListBox1.CheckedItems(i))
    Next

    MsgBox(sb.ToString())

End Sub

附带说明，不要使用 + 来连接字符串，请使用 & 运算符。