Discussion :

[The Bob]

Salut à vous!

J'ai un problème relativement bête.
Je dispose de trois feuilles dans mon projet : frmCalcul (c'est la principale), frmListe et frmPropos. Donc l'appli se lance en ouvrant frmCalcul, et à partir de cette feuille, j'ai des boutons pour ouvrir les 2 autres feuilles.

Ce que je voudrais, c'est que lorsque je clique sur le bouton "Quitter" de frmCalcul, les 2 autres feuilles (si elles sont ouvertes) se ferment, en plus de quitter l'éxécution de mon programme, bien entendu.

Voici le code du bouton Quitter (sur frmCalcul) :

Code :

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

1
2
3
4
5
Private Sub cmdQuitter_Click()
    If MsgBox("Vraiment quitter l'application ?", vbYesNo, "Quitter") = vbYes Then
        Unload Me
    End If
End Sub

J'ai essayé de mettre des unload frmListe (par exemple) au même niveau que le unload me mais ça ne marche pas.

Ca me semble tout bête pourtant! Comment faire!?

[Nicos77]

Code :

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

1
2
3
4
5
Private Sub cmdQuitter_Click() 
    If MsgBox("Vraiment quitter l'application ?", vbYesNo, "Quitter") = vbYes Then 
        End
    End If 
End Sub

Si ca fonctionne, c'est le monde à l'envers. C'est moi qui aide les autres !!!

[Isaac]

Salut,

Essayes :

Code :

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

1
2
3
4
 
Private Sub btn_quitter_click()
 End
End Sub

Le

Code :

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

End

quitte l'appli et donc ferme les fenetres

Pour fermer une fenetre uniquement :

Code :

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

[taForm ou ME].Hide

Mais je suis sûr que tu viens de voir tout ça dans la doc ;-)

A+

[The Bob]

Si ca fonctionne, c'est le monde à l'envers. C'est moi qui aide les autres !!!

Eh bien dis aux autres que t'es capable de le faire, parce que ça marche!!

Merci bien!

[Nicos77]

Eh bien dis aux autres que t'es capable de le faire, parce que ça marche!!

Je ne suis pas si mauvais que ca !!!

Met RESOLU dans ton sujet !!!

[bidou]

End pour arrêter un programme avec des fenêtres.

L'instruction End permet de forcer l'arrêt du programme. Pour qu'un programme Visual Basic se termine normalement, vous devez décharger toutes les feuilles. Votre programme se termine lorsqu'il n'y a plus aucun programme maintenant des références à des objets créés depuis vos modules de classe publics et qu'aucun code n'est exécuté.

Donc il faut décharger la collection forms avant d'arrêter.

[elifqaoui]

pourquoi pas utiliser la collection Forms, en faisant un test sur le nombre de feuille chargées puis décharger une par une.