Listbox.Selected 显示 运行 时间错误“-2147024809(80070057)”

Question

我有一个设置为多 select 的列表框。 当我使用 listbox.selected 检查项目 selection status、我得到 运行 时间错误。 运行-时间错误“-2147024809(80070057)”：无法获得 selected 属性。参数无效。

列表框中设置了 55 个项目。当 i=25 时，错误发生。 这个错误的原因是什么？

' Add item to listbox
with me
    For i = LBound(arr) To UBound(arr)
      .ListBox1.AddItem arr(i)
    Next
End With

' Check listbox
with me
    arr = Array()
    For i = 0 To .ListBox1.ListCount - 1
      If .ListBox1.Selected(i) = False Then    <-Error happen here
        ReDim Preserve arr(UBound(arr) + 1)
        arr(UBound(arr)) = .ListBox1.List(i)
      End If
    Next
End With

Answer 1

重新创建表单和所有相关处理后错误消失，