Xcotty
13 de Marzo del 2003

Tengo un ListBox en mi formulario.

Lo que necesito es saber como puedo declarar una variable de tipo ListBox y que me permita volcar el contenido del Listbox de la pantalla en esta variable.

¿Alguien me puede ayudar?


GRACIAS

angeles
13 de Marzo del 2003

Si lo que quieres es tener el objeto ListBox entero sería:
Dim res As ListBox
Private Sub Command1_Click()
Set res = Me.List1
End Sub
Pero en este caso es una referencia al mismo objeto, es decir, si se modifica el ListBox del Formulario se modifica tu variable.
Si lo que pretendes es copiar la lista de elementos:
Dim l() As String
Private Sub Command1_Click()
Dim i As Integer
ReDim Preserve l(Me.List1.ListCount)
For i = 0 To Me.List1.ListCount - 1
l(i) = Me.List1.List(i)
Next i
End Sub