VB.NET Listbox selectedindex

Question

在我的代码中，我选择excel文件将它们添加到列表框中，然后我运行一些代码来替换列表中所有excel文件上的某个单元格。每当它更改excel文件中的单元格时，它将使用

转到列表框中的下一个单元格

Me.ListBox2.SelectedIndex = Me.ListBox2.SelectedIndex + 1

但是当它到达列表的末尾时，它会给我一个错误。我怎样才能让我的列表框知道它已经到了终点。

Answer 1

像这样支票：

if Me.ListBox2.SelectedIndex + 1  < Me.ListBox2.items.count then
    Me.ListBox2.SelectedIndex + = 1
End if

Answer 2

我想我会做一个For / Each / Next循环遍历这样的项目：

For Each ListItem As Object In ListBox2.Items

    'Set Active item as selected
    ListBox2.SelectedItem = ListItem

    'manipulate file
    UpdateExcelFile(ListItem.ToString)

Next

Answer 3

只是为了好玩。您可以在不使用IF / END IF的情况下执行此操作 以下代码会将selectedindex移动到下一个项目，直到它到达列表框的末尾。

ListBox1.SelectedIndex += Math.Abs(CInt(ListBox1.SelectedIndex < ListBox1.Items.Count - 1))