Tester fermeture form fille [Résolu]

Messages postés
43
Date d'inscription
jeudi 18 octobre 2007
Dernière intervention
9 juin 2010
- - Dernière réponse : ptitelili059
Messages postés
43
Date d'inscription
jeudi 18 octobre 2007
Dernière intervention
9 juin 2010
- 19 janv. 2010 à 14:24
Bonjour

Je développe en ce moment une application de gestion en MDI. J'ai plusieurs formulaires filles et je voudrais tester avant de fermer mon application que tous les formulaires filles sont fermés. Comment puis-je faire ?

Merci
Afficher la suite 

Votre réponse

6 réponses

Meilleure réponse
Messages postés
43
Date d'inscription
jeudi 18 octobre 2007
Dernière intervention
9 juin 2010
3
Merci
C'est bon j'ai trouvé merci de ton aide

Pour ceux que ça intéresse voici le code :
Dim ret As DialogResult
        ret = MessageBox.Show("Etes-vous sûr de vouloir fermer cette application ?", "Fermeture ...", MessageBoxButtons.YesNo)
        If ret = vbYes Then
            Dim xxx As Form
            For Each xxx In Me.MdiChildren
                If xxx.IsMdiChild Then
                    If xxx.Enabled Then
                        MsgBox("Veuillez d'abord fermer toutes les fenêtres ! ", MsgBoxStyle.Information, "Attention")
                        e.Cancel = True
                    End If
                End If
            Next
        Else
            e.Cancel = True
        End If

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 122 internautes nous ont dit merci ce mois-ci

Commenter la réponse de ptitelili059
Messages postés
14010
Date d'inscription
samedi 29 décembre 2001
Dernière intervention
28 août 2015
72
0
Merci
Salut
En VB6, ça donnerait ça :
    Dim xxx As Form
    For Each xxx In Forms
        If Not TypeOf xxx Is MDIForm Then
            If xxx.MDIChild = True Then
                Debug.Print xxx.Name
            End If
        End If
    Next

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Commenter la réponse de cs_Jack
Messages postés
43
Date d'inscription
jeudi 18 octobre 2007
Dernière intervention
9 juin 2010
0
Merci
merci mais j'ai oublié de préciser que je développe en VB.NET
Commenter la réponse de ptitelili059
Messages postés
14010
Date d'inscription
samedi 29 décembre 2001
Dernière intervention
28 août 2015
72
0
Merci
Oui oui, la catégorie le disait pour toi, mais n'ayant pas le temps de lancer .Net pour trouver la syntaxe exacte, je te laisse ce code VB6 surement transposable en .Net
Ca te donne une piste ...
Commenter la réponse de cs_Jack
Messages postés
43
Date d'inscription
jeudi 18 octobre 2007
Dernière intervention
9 juin 2010
0
Merci
Merci. J'ai essayé mais je ne sais pas à quoi correspond le "Forms"
Commenter la réponse de ptitelili059
Messages postés
14010
Date d'inscription
samedi 29 décembre 2001
Dernière intervention
28 août 2015
72
0
Merci
Oui, tellement différent en .Net :
        Dim xxx As Form
        For Each xxx In MdiChildren
            Debug.Print(xxx.Text)
        Next
Commenter la réponse de cs_Jack

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.