¿Cómo hago para cerrar MDIchild simultaniamente?

[Predaaator]

me gustaría saber que comando puedo usar para cerrar todos los formularios mdichild que se encuentren abierto en ese momento.

[GeoAvila]

Unload nombreform

nos vemos..

[Developer9]

Eje!! que tal compañero GeoAvila... yo supongo que se refería a cerrar todos los forms que se encuentren abiertos, sin saber cuales son

[Predaaator]

Iniciado por Developer9

Eje!! que tal compañero GeoAvila... yo supongo que se refería a cerrar todos los forms que se encuentren abiertos, sin saber cuales son

sí, algo asi como que al cerrar la sesión, exista un comando que cierre todos los mdichild que se encuentren abiertos, TODOS, sin excepción

[Developer9]

Claro... sin importar que es lo que esté abierto

[Predaaator]

o que por lo menos, un comando que me diga como saber si un mdichild esta abierto para poder cerrarlo con un if then

[Predaaator]

Iniciado por Developer9

Claro... sin importar que es lo que esté abierto

sí, imaginalo así...en el menu Archivo, selecciono cerrar sesión, y me cierre todas las mdichild activas en ese momento

[GeoAvila]

mira el unload no te da problema si no esta habierto el revisa si esta habierto y lo cierrra y si no esta abierto igual no tiene problemas y lo cierra..

nos vemos..

[Developer9]

Eje!! a ya chevere... entonces hay que hacer una funcion en donde mandemos a cerrar toooooooooooodos los forms que existan en el proyecto y se cerraran los que esten abiertos... si son 100 forms serán 100 unload

[Predaaator]

Iniciado por GeoAvila

mira el unload no te da problema si no esta habierto el revisa si esta habierto y lo cierrra y si no esta abierto igual no tiene problemas y lo cierra..

nos vemos..

me puedes decir un comando que me indique si un form esta abierto o no?

[GeoAvila]

esto te funcionará si no el form esta visible o no osea no tenes que usar la opcion hide de lo contrario no te funcioanará..

If Form2.Visible = True Then
MsgBox "hola"
Else
MsgBox "noestas"
End If

nos vemos..

[Predaaator]

Iniciado por GeoAvila

esto te funcionará si no el form esta visible o no osea no tenes que usar la opcion hide de lo contrario no te funcioanará..

If Form2.Visible = True Then
MsgBox "hola"
Else
MsgBox "noestas"
End If

nos vemos..

no me sirve, por que abre y cierra los mdichild en ves de verificar si estan o no abiertos

[Predaaator]

Iniciado por Developer9

Eje!! a ya chevere... entonces hay que hacer una funcion en donde mandemos a cerrar toooooooooooodos los forms que existan en el proyecto y se cerraran los que esten abiertos... si son 100 forms serán 100 unload

si...lamentablemente, será así...gracias

[Predaaator]

Iniciado por Developer9

Eje!! a ya chevere... entonces hay que hacer una funcion en donde mandemos a cerrar toooooooooooodos los forms que existan en el proyecto y se cerraran los que esten abiertos... si son 100 forms serán 100 unload

me puedes decir un comando que me indique si un form se encuentra abierto o no, sin que este lo abra...es decir, si esta cerrado, que no lo abra, solamente que me indique que se encuentra cerrado

[GeoAvila]

sería más facil con un arreglo de forms porque así sería más facil hacerlo un ciclo for..

pero.. la verdad no se me ocurre a mi algo.. asi.. como darte un ejemplo..

nos vemos..

[Predaaator]

Iniciado por GeoAvila

sería más facil con un arreglo de forms porque así sería más facil hacerlo un ciclo for..

pero.. la verdad no se me ocurre a mi algo.. asi.. como darte un ejemplo..

nos vemos..

Gracias de todos modos...yo veo que invento

[Sebasedeno]

Para cerrar muchos forms juntos hace esto amigo:

For i = 0 To Forms.Count - 1
If Forms(i).Name <> "MdiMenu" Then
Unload Forms(i)
End If
Next

Donde "MdiMenu" es el nombre del form MDI Padre

[Predaaator]

Iniciado por Sebasedeno

Para cerrar muchos forms juntos hace esto amigo:

For i = 0 To Forms.Count - 1
If Forms(i).Name <> "MdiMenu" Then
Unload Forms(i)
End If
Next

Donde "MdiMenu" es el nombre del form MDI Padre

amigo, Muchas gracias , todo perfecto, pero.....no me funciono así, me funciono de este modo...

For i = 1 To Forms.Count - 1
If Forms(1).Name <> "Inicio" Then
Unload Forms(1)
End If
Next

a "i" le puse el valor de 1 para que no contará el MDI padre, y elimine los "i" por que no quiso funcionar así, me da un error, imagino que cuando se cierra un form(1), el form(2) pasa a ser el form(1) y así sucesivamente.......pero de todos modos, ya me funciona, pero si sabes que es lo que estoy haciendo mal, avisame, muchas gracias, me fue muy útil

[Predaaator]

Iniciado por Predaaator

amigo, Muchas gracias , todo perfecto, pero.....no me funciono así, me funciono de este modo...

For i = 1 To Forms.Count - 1
If Forms(1).Name <> "Inicio" Then
Unload Forms(1)
End If
Next

a "i" le puse el valor de 1 para que no contará el MDI padre, y elimine los "i" por que no quiso funcionar así, me da un error, imagino que cuando se cierra un form(1), el form(2) pasa a ser el form(1) y así sucesivamente.......pero de todos modos, ya me funciona, pero si sabes que es lo que estoy haciendo mal, avisame, muchas gracias, me fue muy útil

mejor es de este modo...ya que si el form(0) es el MDI padre, no tiene que estar comparando con nadie...simplemente cuenta el número de Form, descarta el MDI padre, y comienza a cerrar el número de form existentes, tomando en cuenta que cada vez que el Form(1) se cierra, el que le sigue toma su lugar.

For i = 1 To Forms.Count - 1
Unload Forms(1)
Next

[Predaaator]

Gracias a todos por su ayuda y a Sebasedeno por ayudarme a llegar a la solución

[Kaskarudo]

Hola amigos... Tenia este mismo problema y lo solucioné de la sgte forma...

Declaré un vector que me almacenara todos los Forms abiertos dentro del MDiParent
(Este vector lo declare en el formulario padre)

Dim Formularios() As Form

En el evento del Boton "Cerrar Sesión" que tengo en un menu del MdiParent:
Obtengo el listado de Forms abiertos

Formularios = Me.MdiChildren

Ahora por cada uno de los form en el arreglo, lo voy cerrando

For Each frm As Form In Formularios
frm.Close()
Next


Espero les Sirva...