Tester fermeture form fille [Résolu]

ptitelili059 43 Messages postés jeudi 18 octobre 2007Date d'inscription 9 juin 2010 Dernière intervention - 19 janv. 2010 à 11:49 - Dernière réponse : ptitelili059 43 Messages postés jeudi 18 octobre 2007Date d'inscription 9 juin 2010 Dernière intervention
- 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
ptitelili059 43 Messages postés jeudi 18 octobre 2007Date d'inscription 9 juin 2010 Dernière intervention - 19 janv. 2010 à 14:24
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

Merci ptitelili059 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 99 internautes ce mois-ci

Commenter la réponse de ptitelili059
cs_Jack 14010 Messages postés samedi 29 décembre 2001Date d'inscription 28 août 2015 Dernière intervention - 19 janv. 2010 à 12:37
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
ptitelili059 43 Messages postés jeudi 18 octobre 2007Date d'inscription 9 juin 2010 Dernière intervention - 19 janv. 2010 à 12:50
0
Merci
merci mais j'ai oublié de préciser que je développe en VB.NET
Commenter la réponse de ptitelili059
cs_Jack 14010 Messages postés samedi 29 décembre 2001Date d'inscription 28 août 2015 Dernière intervention - 19 janv. 2010 à 13:24
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
ptitelili059 43 Messages postés jeudi 18 octobre 2007Date d'inscription 9 juin 2010 Dernière intervention - 19 janv. 2010 à 13:36
0
Merci
Merci. J'ai essayé mais je ne sais pas à quoi correspond le "Forms"
Commenter la réponse de ptitelili059
cs_Jack 14010 Messages postés samedi 29 décembre 2001Date d'inscription 28 août 2015 Dernière intervention - 19 janv. 2010 à 14:20
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.