Discussion :

[jerzy59]

Bonjour.
J'aimerai fermer toutes les fenetres filles contenues dans une MDIForm.
Pour cela j'ai le code suivait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Dim i As Integer
For i = Forms.Count - 1 To 0 Step -1
Unload Forms(i)
Next

Le problème est que la fenetre mère se ferme également à l'application.
Que dois-je modifier pour fermer uniquement les fenetres filles ?

[illight]

c'est pour quoi ? quel VB ? VB6 ?
Bien que ne le connaissant pas, je dirait qu'il faudrait que dans ta boucle au lieu d'arreter à 0, t'arreter à 1, voire 2 mais bon je dis peut etre une betise

[jerzy59]

C'est pour VB6.
J'ai essayé de m'arreter à 1 ou 2 mais cela ne fonctionne pas

[ouskel'n'or]

As-tu essayé au pas à pas en mode debug ?
Tu peux ainsi tester l'index qu'il ne faut pas fermer (en VBA c'est ce que je ferais...)

[jacma]

Bonjour

Si tu n'as que des feuilles MDI dans ton application, le code suivant devrait suffire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
For Each MyForm In Forms
   Unload MyForm
Next MyForm

Sinon, à toi de créer et de gérer une sous collection de la collection Forms qui contiendrait les mdi filles. Celà implique d'ajouter à la collection chaque mdi fille lors de son ouverture.

[ThierryAIM]

en complément de ce que viens de dire jacma :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim frm As Form
    For Each frm In Forms
        If frm.Name <> "MDIForm1" Then Unload frm
    Next

[jerzy59]

Cela fonctionne je vous remercie.
J'avais deja essayé comme thierryaim le propose mais j'avais une erreur de compilation. Je viens de comprendre que j'avais oublié de mettre les guillemets.
Merci

[jacma]

Merci de rajouter la balise [Résolu]