对于循环导致不需要的“退出子”事件

Question

Vb.net 2010 Express 中的行为非常奇怪。代码如下：

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim a As Integer
        '... Other lines...'
        Dim di As New IO.DirectoryInfo(App_Path & "midi\")
        Dim diar1 As IO.FileInfo() = di.GetFiles()
        For a = 0 To diar1.Count
            midrep(a) = diar1(a).Name
        Next a
        Preload()
End Sub

由于某种原因，“Preload()”指令的最后一行没有被执行。 （我检查了一个断点，它甚至没有到达它）。

如果我删除循环，它工作正常。使用循环，我没有收到任何错误或警告，但最后一行被完全忽略。 for 循环已正确执行。

我需要 Preload() 之前的循环。

有人知道如何解决这个问题吗？

谢谢大家

Answer 1

我会冒险猜测你没有离开For 循环，因为你超出了midrep（你没有给我们的类型）或@ 987654323@，这显然是FileInfo对象的数组。

事实上，不管midrep 的定义如何，你肯定超出了diar1 的范围，因为diar1.Count 总是比最后一个可用索引高一个。您需要在到达diar1.Count之前停止循环。

For a = 0 To diar1.Count - 1
'                       ^^^^
    midrep(a) = diar1(a).Name
Next a