MINIMIZAR FORMS A PARTIR DE MDI FORM

GNCNET 08/11/2011 20:33:19
#388759
Tenho alguns forms que não são MDIchilds e preciso minimizá-los quando minimizo o MDIform para que a tela não fique carregada e confusa com estes forms abertos.
O que posso fazer?
Ah! Não dá para transformar estes forms em MDIchild, pois são grandes e ocupam toda a tela.
Grato
Gardel.
FILMAN 08/11/2011 23:48:24
#388763
Faça o seguinte vê se ajuda.

suponha que os seus FORM que não são Childs são os baixo:
Form1
Form2
Form3

no MDIForm coloque o seguinte código

Private Sub MDIForm_Resize()
Form1.WindowState = Me.WindowState
Form2.WindowState = Me.WindowState
Form3.WindowState = Me.WindowState
End Sub


Verifica se é isso que estava procurando
LUIZCOMINO 09/11/2011 08:51:26
#388770 Resposta escolhida
Amigo Faça um For Each assim você não precisa ficar colocando o nome de todos os forms, basta colocar o codigo na rotina:


Private Sub MDIForm_Resize()
Dim Formulario As form
For Each Formulario In Forms
If TypeOf Formulario Is form Then
Formulario.WindowState = Me.WindowState
End If
Next
End Sub
GNCNET 09/11/2011 20:44:20
#388855
Obrigado pelas respostas.
Antes de encerrar, LuizComino, quando uso sua função ocorre :

run time error 28
Out of stack space

Já uso o for each para fechar todos os forms abertos ao encerrar o sistema:

Dim Form As Form
For Each Form In Forms
Unload Form
Set Form = Nothing
Next Form

...
FILMAN 09/11/2011 20:56:06
#388856
Mude a variavel FORM

Tenta assim

Msg = MsgBox([Ô]O Sistema Sera encerrado. Deseja realmente sair[Ô], vbQuestion + vbYesNo)
If Msg = vbYes Then
    Dim xForms As Form
    For Each xForms In VB.Forms
        Unload xForms
    Next xForms
    End
End If
Tópico encerrado , respostas não são mais permitidas
Voltar