Visual Basic - Mostrar datos de ListBox

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 14
Ha aumentado su posición en 12 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Mostrar datos de ListBox

Publicado por José (2 intervenciones) el 19/11/2018 14:23:05
Hola, tengo un ListBox y dos TextBox, el ListBox Contiene dos columnas y Quiero que en el TextBox1 se cargue el dato seleccionado de la primera columna, y en el TextBox2 el de la segunda columna.

Solo logro mostrar el de la primera columna, alguna macro o alguna idea que me puedan dar sobre como mostrar el dato de la segunda columna?

Desde ya muchas gracias.

Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 3.117
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Mostrar datos de ListBox

Publicado por Andres Leonardo (1798 intervenciones) el 19/11/2018 16:04:38
Jose

Sube lo que tenga para ver como tienes y como podemos ayudarte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 14
Ha aumentado su posición en 12 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Mostrar datos de ListBox

Publicado por José (2 intervenciones) el 19/11/2018 16:16:49
fghkjmnf

El precio que esta en la segunda columna es el que necesito que quede en el otro TextBox.
Utilice este código para que se vea en el TextBox:

Private Sub Lista1_Change()

TextBox1 = Lista1.Value

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.117
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Mostrar datos de ListBox

Publicado por Andres Leonardo (1798 intervenciones) el 19/11/2018 21:30:40
Me encantaria ver como llenas ese

en todo caso abre un proyecto pon un list y dos textbox

y pega esto

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Form_Load()
    Me.List1.AddItem "Cazuela" & vbTab & "$2000.00"
    Me.List1.AddItem "Arroz " & vbTab & "$3000.00"
    Me.List1.AddItem "sancocho" & vbTab & "$550.00"
    Me.List1.AddItem "Encebollado" & vbTab & "$2500.00"
    Me.List1.AddItem "Guatita" & vbTab & "$3000.00"
End Sub
 
Private Sub List1_Click()
x = InStr(List1.List(List1.ListIndex), vbTab)
Text1.Text = Mid(List1.List(List1.ListIndex), 1, x - 1)
Text2.Text = Mid(List1.List(List1.ListIndex), x + 1, Len(List1.List(List1.ListIndex)) - x)
End Sub
 
Private Sub List1_ItemCheck(Item As Integer)
    MsgBox List1.ItemData
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar