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

Просто для удовольствия.Вы можете сделать это без использования IF / END IF
Следующий код переместит выбранный индекс к следующему элементу, пока он не достигнет конца списка.

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

Answer 3

Я думаю, что я бы сделал 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