有没有办法避免Visual Basic中的异常

Question

这是我的代码。 listbox.selected index会增加，直至达到listitem的总数。

If (ListBox1.SelectedIndex <> totalcount) Then

            ListBox1.SelectedIndex += 1

        End If

它提供了异常

Answer 1

首先，您必须初始化ListBox的selectedIndex属性。

之后，您必须使用 while 结构多次执行操作（并检查上限）：

'Init
ListBox1.SelectedIndex = 0
Dim totalcount = ListBox1.Items.Count

'A loop through each element
While ListBox1.SelectedIndex <> totalcount - 1
     ListBox1.SelectedIndex += 1
End While