0

Olá queria saber como faço para identificar se a index (Exemplo: 5 não existe) e retornar para 0.

Segue meu código:

Dim avancarcoordX As Integer
avancarcoordX = lbPosX.SelectedIndex + 1
lbPosX.SelectedIndex = avancarcoordX
PosX.Text = lbPosX.SelectedItem
Dim avancarcoordY As Integer
avancarcoordY = lbPosY.SelectedIndex + 1
lbPosY.SelectedIndex = avancarcoordY
PosY.Text = lbPosY.SelectedItem 

Quando não existe um Item então ele apresenta um erro. Preciso que ao chegar ao último item (Que é variavel) ele retorne ao primeiro. Assim um loop infinito.

1 Resposta 1

0

Boa noite.

Tente o seguinte código:

    If ListBox1.Items.Count > 0 Then

        If ListBox1.SelectedIndex = -1 Then
            ListBox1.SelectedIndex = 0
        Else
            If ListBox1.SelectedIndex < ListBox1.Items.Count - 1 Then
                ListBox1.SelectedIndex += 1
            Else
                ListBox1.SelectedIndex = 0
            End If
        End If
    End If

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .