Asignar acciones en los items de un listbox

[rapbyone]

Estimados, mi pregunta es la siguiente, tengo un listbox con 5 items y quiero que por ejemplo al hacer click en el item 1 me muestre un msgbox con el contenido del item número 1 y así con todos.

Se puede hacer esto en vb6? Gracias amigos 

[fary]

Obviamente sí se puede...

Código (vb) [Seleccionar] Expandir

Private Sub List1_Click()
    MsgBox List1.List(List1.ListIndex)
End Sub

saludos.

[rapbyone]

Obviamente sí se puede...

Código (vb) [Seleccionar] Expandir

Private Sub List1_Click()
    MsgBox List1.List(List1.ListIndex)
End Sub

saludos.

gracias estimado, pero ¿se podrá hacer sin necesidad de tener que seleccionar el item de la lista?

[FurioMoltisanti]

Te refieres a que no lo marque en la lista?

[fary]

gracias estimado, pero ¿se podrá hacer sin necesidad de tener que seleccionar el item de la lista?

Estimados, mi pregunta es la siguiente, tengo un listbox con 5 items y quiero que por ejemplo al hacer click en el item 1 me muestre un msgbox con el contenido del item número 1 y así con todos.

Se puede hacer esto en vb6? Gracias amigos 

¿En qué quedamos?

[rapbyone]

¿En qué quedamos?

Estimado te explico, lo que pasa es que quiero lograr lo siguiente:

tengo 2 listbox
- En el primero se muestra una lista con las rutas de unos archivos
- En el segundo muestra el contenido de los archivos mostrados en el primero listbox

Lo que quiero lograr es que al hacer click en una fila de listbox2 me muestre un msgbox con la ruta del archivo en la fila 1.

dejo una imagen del proyecto:



en la imagen muestra la ruta pero al hacer click en el list1, y yo necesito que me muestre la ruta pero desde el list2.

Entonces yo pensaba que sabiendo como asociar un item con otro podría lograrlo.

[FurioMoltisanti]

Creo que esto es lo que quieres:

Código (vb) [Seleccionar] Expandir

Private Sub List2_Click()
    MsgBox List1.List(List2.ListIndex)
End Sub

Puedes substituir el List2.ListIndex por la posición fija si es lo que quieres.

[rapbyone]

Creo que esto es lo que quieres:

Código (vb) [Seleccionar] Expandir

Private Sub List2_Click()
    MsgBox List1.List(List2.ListIndex)
End Sub

Puedes substituir el List2.ListIndex por la posición fija si es lo que quieres.

Funcionó perfecto amigo, jamas pensé que lo podría lograr con un código tan pequeño, muy agradecido

[fary]

La respuesta se te dio en la primera respuesta.

Por favor coge un libro porque el resto del tema a sido absurdo...

[rapbyone]

La respuesta se te dio en la primera respuesta.

Por favor coge un libro porque el resto del tema a sido absurdo...

Lo siento por no tener tu inteligencia supina, pero para mi son respuestas diferentes aunque sea un solo numero el que hace la diferencia, se supone que el foro es para preguntar y aprender. Un poco de humildad 

Private Sub List1_Click()
    MsgBox List1.List(List1.ListIndex)
End Sub

Private Sub List2_Click()
    MsgBox List1.List(List2.ListIndex)
End Sub