none
ListBox obtener 3 datos en conjunto

    Pregunta

  • Buen dia alguien me puede ayudar tengo una ListBox con varios datos deseo seleccionar 3 datos de esa ListBox ejemplo:

    Si selecciono el dato 1 de la lista, en los 3 TextBox me presente los datos del orden de lista,  -1 es decir iniciar desde el ultimo de la lista lo represente en el  TextBox1, el listado 1 TextBox2  y el 2 TextBox3  y si paso al dato 2 me haga la misma operación, representando en el primer texbox1 1 y en los otros el listado 2 TextBox2  y el 3 TextBox3, si paso al dato 3 me haga la misma operación, representando en el primer texbox1 2 y en los otros el listado 3 TextBox2  y el 4 TextBox3 y así conforme seleccione un datos, alguien me puede ayudar?

        Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles ListBox1.SelectedIndexChanged
    
    
    ????????????
    
    
            Next
    
        End Sub

    viernes, 23 de septiembre de 2016 18:15

Respuestas

  • Cael1020,

    Intenta realizar lo siguiente:

    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
    
            Dim lbx As ListBox = DirectCast(sender, ListBox)
            Dim Indice As Integer = lbx.SelectedIndex
    
            TextBox1.Text = lbx.Items(If(Indice = 0, lbx.Items.Count - 1, Indice - 1))
            TextBox2.Text = lbx.Items(Indice)
            TextBox3.Text = lbx.Items(If(Indice = lbx.Items.Count - 1, 0, Indice + 1))
        End Sub

    Nota que cuando seleccionas el último elemento del objeto ListBox1 el objeto TextBox3 obtiene el valor del primer elemento de la lista (entiendo que debería ser así).


    Espero que la información proporcionada te haya sido de utilidad, quedo atento a tus comentarios.
    • Marcado como respuesta Cael1020 viernes, 23 de septiembre de 2016 20:05
    • Desmarcado como respuesta Cael1020 viernes, 23 de septiembre de 2016 20:05
    • Marcado como respuesta Cael1020 viernes, 23 de septiembre de 2016 20:05
    viernes, 23 de septiembre de 2016 18:38