none
¿pasar datos seleccionados de listbox a textbox?

    Pregunta

  • Antes que nada les pido una disculpa por acudir a con mucha frecuencia, en esta vez mi duda es si puedo pasar datos de un listbox a dos textbox, el codigo que hasta ahorita e utilizado es el siguiente.

        Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged
            TextBox5.Text = ListBox2.SelectedItem
            TextBox6.Text = ListBox2.SelectedItem
        End Sub

    pero con esto lo que sucede es que muestra lo seleccionado en ambos textbox y lo que yo quiero es que un parte aparesca en uno y la otra parte aparesca en otro.

    por ejemplo los datos en mi listbox son:

    1,123
    2,321
    3,324
    4,122
    5,133
    6,323
    7,210
    8,901

    y lo que yo quiero es que los numero antes de la coma aparescan en el primer textbox y los que son despues de la coma aparescan en el segundo textbox. No se esto sea posible espero me puedan orientar.

    jueves, 23 de mayo de 2013 2:41

Respuestas

  • Se me ocurre algo como esto:

    Dim Wcadena As String = ListBox2.SelectedItem
    Dim wpos As Integer = InStr(Wcadena, ",")
    Dim Wlargo As Integer = Wcadena.ToString.Trim.Length - wpos
    TextBox5.Text = Mid(Wcadena, 1, wpos - 1)
    TextBox6.Text = Mid(Wcadena, wpos + 1, Wlargo)

    espero te sirva

     

    jueves, 23 de mayo de 2013 3:28
  • hola

    si puedes tomar la seleccion podrias suar el Split() para cortar cada parte

    Dim cadena As String = "1,123"

    Dim partes() As String = cadena.Split(","c)

    textbox1.Text = partes(0)

    textbox2.Text = partes(1)


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina

    jueves, 23 de mayo de 2013 12:56

Todas las respuestas

  • Se me ocurre algo como esto:

    Dim Wcadena As String = ListBox2.SelectedItem
    Dim wpos As Integer = InStr(Wcadena, ",")
    Dim Wlargo As Integer = Wcadena.ToString.Trim.Length - wpos
    TextBox5.Text = Mid(Wcadena, 1, wpos - 1)
    TextBox6.Text = Mid(Wcadena, wpos + 1, Wlargo)

    espero te sirva

     

    jueves, 23 de mayo de 2013 3:28
  • ok aavanegas muchas gracias por el codigo, dejame calarlo y te informo.
    jueves, 23 de mayo de 2013 3:41
  • delfino, debes marcar las respuestas que ayudaron a resolver tu pregunta, para facilitar a otros usuarios del foro con problemas similares

    Pedro Ávila
    "El hombre sabio querrá estar siempre con quien sea mejor que él."
    Lima - Perú

    jueves, 23 de mayo de 2013 4:28
  • hola

    si puedes tomar la seleccion podrias suar el Split() para cortar cada parte

    Dim cadena As String = "1,123"

    Dim partes() As String = cadena.Split(","c)

    textbox1.Text = partes(0)

    textbox2.Text = partes(1)


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina

    jueves, 23 de mayo de 2013 12:56