Question

为什么我继续收到此错误：索引超出了数组的范围。请帮忙。谢谢。

 Dim list As New ListBox
 Dim dirsize As Integer
 Dim a As Integer
 Dim container(0) As String

 Dim counter As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
 counter = My.Computer.FileSystem.GetFiles("C:\myfolder")
 dirsize = counter.Count

 For a = 0 To dirsize

     container(a) = a + 1
     lstItems.Items.Add(container(a))

 Next

Answer 1

基本上container只有一个元素，你在sub的开头就暗淡了。你永远不会调整容器大小，所以如果dirsize不是0，你就会收到这个错误。

您应该执行以下操作：

 Dim list As New ListBox
 Dim dirsize As Integer
 Dim a As Integer
 Dim container() As String

 Dim counter As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
 counter = My.Computer.FileSystem.GetFiles("C:\myfolder")
 dirsize = counter.Count

 **ReDIm container(dirsize)**
 For a = 0 To dirsize

     container(a) = a + 1
     lstItems.Items.Add(container(a))

 Next

索引超出了数组的范围 - VB2008

1 个答案: