xsara1_9
11 de Abril del 2005

Hola amigos, necesito enviar todo un listbox de un frm1 a un frm2 y en el destino visualizar su contenido.
En frm1 pongo:
f.ILista = lstRecursos
Y en frm2
Public ILista As ListBox
Pero me da un error:
Error 91 en tiempo de ejecución
Variable de tipo Object o la variable de bloque With no está establecida.
¿Qué hago mal? Muchas gracias.

. : AlphaSoft : .
11 de Abril del 2005

O.K.

No te compliques la vida...

==================================================

Form2.ListBox2.clear

For i = 0 to Form1.ListBox1.listCount - 1
Form2.ListBox2.additem Form1.ListBox1.List(i)
next i

==================================================

Esto te deberia fncionar para transladar todos los elementos de un listBox a otro.

El listBox1 debera estar en Form1 y el ListBox2 debera estar en Form2, el codigo lo puedes poner en un modulo o en cualquiera de los dos forms.

Espero que te sirva... Saludos!

. : AlphaSoft : .