我正在运行Do Until Loop并且它将错误索引超出范围。我正在使用此代码:
If Not imgList.Item(i).ToString = Nothing Then
但它不起作用.. 实际上,在添加列表框中的任何值之前调用此循环(在私有子中)。
这是完整的循环..
Dim i As Integer = 0
Do Until i = pagesRange
If Not imgList.Item(i).ToString = Nothing Then
'other code
i += 1
Else
End If
Loop
答案 0 :(得分:1)
为避免索引超出范围异常的给定代码尝试下面的
If imgList.Count < i AndAlso Not (imgList.Item(i).ToString Is Nothing) Then
End If
答案 1 :(得分:0)
记住零基础......
Dim i As Integer = 0
Do Until i = pagesRange -1
If Not imgList.Item(i).ToString = Nothing Then
'other code
i += 1
Else
End If
'why i += 1 not here ?
Loop