dimension de un array - VB-MUNDO

nonnato · #1 (**permalink**) 30-11-2004, 09:21:45

Saludos,
tengo un array definido de la siguiente manera en un modulo
public Miarray() as objeto
siendo objeto un tipo de dato definido por mi.

El caso es que al entrar en un formulario lo primero que hago es estudiar el contenido del array, pero si este esta vacio, me salta el error diciendo que se sale de la dimension.

He probado la siguiente condicion para estudiar el array
if ubound(miarray)>0 then
'estudia array
end if
el caso es que salta el error porque me dice que es Nothing.

Tambien he probado a aasignar un tamaño inicial al array de la siguiente forma
public Miarray(0) as objeto
pero no me deja luego redimensionarlo cuando necesito que crezca.
porque tambien crece al cerrarse el formulario que al abrirse lo estudia.

Espero haberme explicado bien.

¿Como puedo dar solucion al problema ?

Muchas gracias de antemano

acalanto · #2 (**permalink**) 30-11-2004, 09:50:30

Yo también utilizo este tipo de redimensión. En principio la tienes correctamente declarada en el encabezamiento; Evidentemente no está dimensionada y por lo tanto al no tener contenido te puede devolver Nothing pero a veces produce un error (No comprendo el porqué)

Yo lo que hago es lo siguiente

Código:

dim minbound as long, maxbound as long
'Activamos la lliberación genérica de error
On local error resume next 
minbound = lbound(miarray)
maxbound=ubound(miarray)
if err then
    redim miarray(1 to 1)
    minbound = 1 : maxbound = 1
end if 
'Desactivamos el resume next si no nos gusta.
on local error goto 0 
on local error goto lineerror

Puede no ser demasiado ortodoxo, pero funciona.

nonnato · #3 (**permalink**) 30-11-2004, 11:29:56

como siempre fabuloso MAESTRO, muy buena solucion. Me funciona correctamente.

Muchas gracias