Holaaaa... Amigos necesito una ayuda... es algo "sencillo" pero sinceramente estoy bloqueado. Lo que pasa es lo siguiente:

Tengo 3 ListBox en VB6:

ListBox1: Tiene 100 nombres
ListBox2: Se llena con 5 numeros aleatorios entre 1 y 100
ListBox3: Debe coger los numeros que estan en el ListBox2 y utilizarlo con valores ENTEROS para utilizarlos en la propiedad List3.List().

Por ejemplo: En la Imagen , me aparecen los numeros en el ListBox2 (Arriba del boton GENERAR) 11, 15, 16, 23 y 28, que deben ser utilizados en el ListBox3 (Debajodel boton GENERAR) y mostrarme los nombres de esos 5 empleados que estan en el ListBox1

Imagen

Lo estoy haciendo de la siguiente forma y efectivamente SI me coloca en el ListBox3 los empleados que son identificados con esos numeros PERO me dice que NO COINCIDEN LOS TIPOS (de valores)

Código:

Private Sub cmdGenerar_Click()
            .
            .
            .

    Dim h As Integer
    For h = 0 To List3.ListCount
    List3.AddItem List1.List(List3.List(h))
    Next h
            .
            .
            .

End Sub

Por favor si alguien puede ayudarme, le agradeceria en el alma...!

Muchas gracias de antemano... Att: Jeyson Zuñiga (desde Cartagena - Colombia)

Buenas, yo lo que aria es llenar el 3ª lista al tiempo que llenas la 2ª .

Código:

...
Lista2.AddItem Numero
Lista3.AddItem lista2.List(Numero - 1)
...

Hola, no estas desencaminado, el problema es que si has copiado el código bien aqui, no estás utilizando los List adecuados, este es tu código:

Private Sub cmdGenerar_Click()
Dim h As Integer
For h = 0 To List3.ListCount
List3.AddItem List1.List(List3.List(h))
Next h
End Sub

En primer lugar, imagino que el For debe procesar TODOS los elementos del List2 que es el que contiene los numeros, por tanto debería ser

For h = 0 To List2.ListCount -1

Además como ves debes procesar hasta ListCount-1 porque ListCount indica 5 y procesas de 0 a 4 que son cinco, por tanto hasta -1

en el pase de los datos se supone que debes hacer, para que lo veas claro podrías hacer:

Dim NombreEnList1 As String, NumeroEnList2 As Single
NumeroEnList2 = List2.List(h)
NombreEnList1 = List1.List(NumeroEnList2)
List3.AddItem NumeroEnList2 & "-" & NombreEnList1

logicamente una vez que lo entiendas, todo esto se puede sustituir por:

List3.AddItem List2.List(h) & "-" & List1.List(List2.List(h))

Si no me he equivocado escribiendo, así debería ser.

Saludos

Hola a todos... gracias a sus respuestas pude solucionar el problema. El codiogo me quedo de la siguiente forma

Código:

Dim h As Integer
Dim NumeroEnList2 As Single
For h = 0 To List2.ListCount - 1
    NumeroEnList2 = List2.List(h)
    List3.AddItem List1.List(NumeroEnList2 - 1)
Next h

Y evidentemente me da los resultados que estaba deseando.

Gracias por todo nuevamente

Adjunto la imagen que muestra los resultados que obtuve