所选列表框项目-将数据添加到数组VB.net

正在努力测试选择了哪些列表框项目。我想允许用户在一个列表框中选择多个项目，这样一个字符串就可以存储在一个数组中，而列表也存储在这个数组中。这是一个点名系统（我的10年级学生的任务）。我只是无法正确地获取列表框的语法。列表框设置为MultiSelection

顺便说一句

不起作用。它返回一个错误

下面的代码返回第一个选中的项目（在消息框中），但不返回其他项目。我现在只是转来转去。一定有更简单的办法。想法

Private Sub BtnRollCall1_Click(sender As Object, e As EventArgs) Handles btnRollCall1.Click
    Dim ExcursionArray(29, 4) As String
    Dim selected As Integer
    Dim LoadNames As StreamReader = File.OpenText("ClassList.txt")
    For i = 0 To 29
        ExcursionArray(i, 0) = (LoadNames.ReadLine())
        lbxRollCall.Items.Add(ExcursionArray(i, 0))
    Next

    For Each SelectedItem As string In lbxRollCall.SelectedItems
        selected = lbxRollCall.SelectedIndex
        ExcursionArray(selected, 1) = "a"
    Next

    For x = 0 To 29
        If (ExcursionArray(x, 1) = "a") Then
            MsgBox(ExcursionArray(x, 0))
        End If

    Next
End Sub

---

如果在

列表框

中选择了相应的“行”，那么您实际要做的似乎是更新一个2D数组，并将第二个“列”设置为“a”。一种方法是：

lbxRollCall.SelectedIndices中每个selectedIndex的

偏移阵列（选择索引，1）=“a”
下一个

另一种选择是：

i=0到偏移阵列的

。GetUpperBound（0）
如果选择了lbxRollCall.GetSelected（i），则
偏移阵列（i，1）=“a”
如果结束
下一个

Private Sub BtnRollCall1_Click(sender As Object, e As EventArgs) Handles btnRollCall1.Click
    Dim ExcursionArray(29, 4) As String
    Dim selected As Integer
    Dim LoadNames As StreamReader = File.OpenText("ClassList.txt")
    For i = 0 To 29
        ExcursionArray(i, 0) = (LoadNames.ReadLine())
        lbxRollCall.Items.Add(ExcursionArray(i, 0))
    Next

    For Each SelectedItem As string In lbxRollCall.SelectedItems
        selected = lbxRollCall.SelectedIndex
        ExcursionArray(selected, 1) = "a"
    Next

    For x = 0 To 29
        If (ExcursionArray(x, 1) = "a") Then
            MsgBox(ExcursionArray(x, 0))
        End If

    Next
End Sub