none
Listbox visual basic RRS feed

  • Pregunta

  • Hola estoy haciendo un trabajo en el cual necesito un botón que cambie el elemento seleccionado de un listbox al siguiente y un botón que cambie al anterior "visual basic"
    • Editado David_Isaac viernes, 11 de enero de 2019 22:54
    viernes, 11 de enero de 2019 22:51

Respuestas

  • Hola mira este ejemplo que te hice aunque parezca haber mucho código es bastante sencillo

    Public Class Form1
        'variables globales para este ejemplo
        Private SelectIndex As Integer
        Private Min As Integer
        Private Max As Integer
    
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            SelectIndex = 0
            Min = 0
            'establecer la variable Max en la cantidad maxima de items importante restarle -1 para que no se pase del maximo permitido
            Max = ListBox1.Items.Count - 1
    
            ListBox1.SelectedIndex = SelectIndex
        End Sub
    
        'boton para seleccionar el siguiente item en el listbox
        Private Sub BtnNext_Click(sender As Object, e As EventArgs) Handles BtnNext.Click
            'Ir hacia delante y comprobar que el contador no sobrepace el limite maximo de los items
            'y en caso de que sea igual al numero maximo de items seleccione el primero de la lista
            SelectIndex += 1
            If SelectIndex > Max Then
                SelectIndex = Min
            End If
            ListBox1.SelectedIndex = SelectIndex
        End Sub
    
        'boton para selecionar el item anterior en el listbox
        Private Sub BtnPast_Click(sender As Object, e As EventArgs) Handles BtnPast.Click
            'Ir hacia atras para seleccionar el item anterior y comprobar que el items no sea inferior a cero
            'y en caso de que sea igual a cero seleccione el ultimo item de la lista
            SelectIndex -= 1
            If SelectIndex < Min Then
                SelectIndex = Max
            End If
            ListBox1.SelectedIndex = SelectIndex
        End Sub
    
    End Class
    

    domingo, 13 de enero de 2019 6:36