Datos de una listbox a un array en VB 6.0

hola y saludos espero me puedas ayudar

mi problema es que necesito pasar unos datos de una listbox a un array pero mi código me tira error y me dice sub indice fuera de intervalo los datos son numéricos, este es mi código me podrías decir que hago mal o como hacer lo que yo quiero:

Dim Vdatos() As Long
Dim Vindice As Integer
For Vindice = 0 To List1.ListCount - 1
Vdatos(Vindice) = List1.List(Vindice)
Next

gracias por tu tiempo!!

1 respuesta

Respuesta
1

Debes redimensionar (Redim) el array para que pueda almacenar todos los datos del listbox

Dim Vdatos() As Long
Dim Vindice As Integer
Redim Vdatos(List1.ListCount - 1)
For Vindice = 0 To List1.ListCount - 1
    Vdatos(Vindice) = List1.List(Vindice)
Next

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas