Ricardo
27 de Julio del 2004

Amigos si pudieran ayudar, tengo un toolbar con un commandButton el cual quisiera utilizar para cerrar todas las ventanas activas,
Como seria el codigo o un ejemplo
algien me puede ayudar????
Gracias.

Alex
27 de Julio del 2004

Que tal Ricardo.


Si tenes un FormSet, y queres cerrar todas las formas contenidas en el incluyendo la forma en donde tenes el botón. Bastaría con escribir: (THISFORMSET.RELEASE())

Si tenes un FormSet y queres cerrar todos los forms a excepción del propietario del botón y no queres escribir el nombre de cada form usa esto :

x=1
DO WHILE Thisformset.FormCount <> 1
cNombe = Thisformset.Forms(x).Name
If ThisForm.Name <> cNombe
Release Window &cNombe
IIF(x-1=1,x=x+1,x=x-1)
ELSE
x=x+1
ENDIF
ENDDO

Y si queres cerrar todos los forms activos en tu programa aunque sean independientes, escribí esto.

x=1
DO WHILE _screen.FormCount <> 1
cNombe = _screen.Forms(x).Name
If ThisForm.Name <> cNombe && No cierrar form donde está el botón, se cierra al final.
Release Window &cNombe
IIF(x-1=1,x=x+1,x=x-1)
ELSE
x=x+1
ENDIF
ENDDO

ThisForm.Release()


Alex Vargas