Botones bajar y subir

[Lain0x]

Tengo un listbox, y estoy haciendo un botón para bajar y otro para subir (desplazamiento por los items).

El problema está cuando paso el final o el principio del listbox. Me gustaría que al llegar al final y presiono otra vez, vuelva al principio, y viceversa.

Código:

If ListBox1.Items.Count <= 1 Then

        ElseIf ListBox1.SelectedIndex > ListBox1.Items.Count Then
            ListBox1.SelectedIndex = 1
        Else
            ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1

Me tira el error (después de haber ingresado 3 elementos):

InvalidArgument=El valor de '3' no es válido para 'SelectedIndex'. Nombre del parámetro: SelectedIndex

[Aquaventus]

Hola Lain0x, hasta ahí no veo nada raro.. coloca todo el código que haces tanto en el botón "arriba" como "abajo". Saludos!.

[Lain0x]

Botón arriba:

Código:

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If ListBox1.Items.Count <= 1 Then

        ElseIf ListBox1.SelectedIndex = ListBox1.Items.Count Then
            ListBox1.SelectedIndex = 1
        Else
            ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1


        End If
    End Sub

Botón abajo:

Código:

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If ListBox1.Items.Count <= 1 Then

        Else
            ListBox1.SelectedIndex = ListBox1.SelectedIndex - 1
            v = v - 1
        End If
    End Sub

[Aquaventus]

mm creo que ya sé donde va tu error lo que pasa es que estas igualando el índice con tu contador, para que entiendas puedes tener 2 items en tu listbox, pero su indíce jamas será igual que su conteo esto debido a que el indice comienza desde 0 :

Para 3 Items :
Item 1 - Indice 0 - Conteo 1
Item 2 - Indice 1 - Conteo 2
Item 3 - Indice 2 - Conteo 3

Has esto, restale 1 al count :

Código vb:

'BOTON ARRIBA
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If ListBox1.Items.Count <= 1 Then
 
        ElseIf ListBox1.SelectedIndex = ListBox1.Items.Count - 1 Then
            ListBox1.SelectedIndex = 1
        Else
            ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
 
 
        End If
    End Sub
 

Y nos cuentas!. Saludos!.

[Lain0x]

Oh gracias, es un detalle que no había tomado en cuenta.