Question

我想将ListBox1中的项目传递给ListBox2，并从LisBox1中删除它们。它在“lb2.Items.Add（item）”处抛出一个null异常，但无法找出原因。只使用一个项目它可以正常工作

我尝试对lb1.items ... lb2.items.add（item）+ lb1.items.remove（item）中的每个项目执行“但是它不起作用，因为你无法修改列表迭代它或抛出异常。还尝试了其他不同的方法，但无法使其正常工作

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    If lb1.Items.Count > 0 Then
        Dim itemsAPasar((lb1.Items.Count - 1)) As Object 
        For Each item In lb1.Items 
            itemsAPasar(UBound(itemsAPasar)) = item  
        Next
        For Each item In itemsAPasar
            lb2.Items.Add(item) 
        Next
        For Each item In itemsAPasar
            lb1.Items.Remove(item)
        Next
    End If
End Sub

Answer 1

看起来你可以简化你的方法......

Person

迭代集合代码有什么问题？

1 个答案: