Discussion :

[Shadam]

Bonjour tout le monde,

comme l'indique le titre j'ai l'exeption stackoverflow de levée sur la procédure suivante :

Code :

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

1
2
3
4
5
Protected Overrides Sub OnClosing(ByVal e As System.ComponentModel.CancelEventArgs)
        For Each f As Form In My.Application.OpenForms
            f.Close()
        Next
    End Sub

le truc c'est que j'ai des formulaires qui sont Hide(), donc si l'utilisateur ferme le principal je veux fermer tout ceux qui sont restés ouvert. Le problème c'est que ça appelle indéfiniment le même formulaire, il ne parcourt pas du tout les OpenForms...
Donc voilà, si quelqu'un pouvait m'éclairer sur ce point...

Merci.

[tomlev]

Bah la Form principale fait partie de la collection OpenForms, puisqu'au moment de l'évènement Closing elle n'est pas encore fermée.

Donc soit tu fais ça dans le Closed et non dans le Closing, soit tu évites d'appeler Close sur la forme principale :

Code :

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

1
2
3
4
5
        For Each f As Form In My.Application.OpenForms
            If f <> Me Then
                f.Close()
            End If
        Next

[Pol63]

openforms retourne aussi les formulaires cachés avec hide

(il faut utiliser if f is not me à la place de <>)

pour ce que tu fais il y a déjà ce qu'il faut d'existant, dans les propriétés du projet "fermer l'application sur la femeture du form principal"

[Shadam]

merci pour vos réponses

par contre j'ai trouvé un truc un peu plus radical, mais je ne sais pas si "ça se fait"...

Code :

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

1
2
3
Protected Overrides Sub OnClosing(ByVal e As System.ComponentModel.CancelEventArgs)
        My.Application.ApplicationContext.ExitThread()
    End Sub

[tomlev]

par contre j'ai trouvé un truc un peu plus radical, mais je ne sais pas si "ça se fait"...

C'est un peu trop radical... avec ça tu n'as aucune garantie que l'application se ferme proprement.

Fais plutôt comme indiqué par Pol63, avec l'option "fermer l'application sur la femeture du form principal"

[Shadam]

C'est un peu trop radical... avec ça tu n'as aucune garantie que l'application se ferme proprement.

Fais plutôt comme indiqué par Pol63, avec l'option "fermer l'application sur la femeture du form principal"

le souci c'est que je n'ai le choix qu'entre :
- à la fermeture du dernier formulaire (hors il y en a de hide et donc inaccessibles)
- à la fermeture du formulaire de démarrage (hors mon appli démarre avec une boîte de log...)

en plus j'ai essayé ce qu'a préconisé Pol63 mais la boucle for s'arrête parce qu'en fermant un form je change la collection OpenForms...

[Pol63]

le System.Windows.Forms.Application.Exit moi je serais pas contre


sinon :

Code :

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

1
2
3
while openforms.count > 0
  openforms(0).dispose
end while

[MABROUKI]

bonjour shaddam
Pourquoi pas Application.Exit que tu peux appeler de n'importe ou?
C'est un peu les 2 idees de pol63 et tomlev jointes.

De plus Application.Exit genere un evenement FormClosing pour chaque forme ou tu peux faire le code de sauvegarde eventuel dans chaque form.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
Public Class Form1
    Private unForme As Form
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Text = "Forme Principal"
        Me.TopMost = True
 
        unForme = New Form2
        unForme.Hide()
        unForme = New Form3
        unForme.Show()
        unForme = New Form4
        unForme.Show()
        unForme = New Form5
        unForme.Show()
 
 
 
    End Sub
    'exemple avec un bouton mais pas necessairement un element d'interface
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Application.Exit()
    End Sub
 
 
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        MessageBox.Show(Me.Text & "  Principal....")
        If e.CloseReason = CloseReason.ApplicationExitCall Then
            MessageBox.Show(" fermee par ApplicationExitCall")
        End If
    End Sub
End Class
'code du forme cache  et subsequents forms
Public Class Form2
 
    Private Sub Form2_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        MessageBox.Show(Me.Text & " Forme Cache closing..........")
    End Sub
End Class

bon code..................