Pb d'unload

Question

Salut tout le monde

Voila, j'ai plusieurs forms dans mon projet definies comme non visibles au depart excepté la form principale evidemment. J'ai créé un bouton exit qui unload chaque form pour quitter mon prog mais si je click sur le X de la form principale le projet est tj en mode run mais les autres forms etant invisibles je ne peux pas les quitter. Donc si je fais un executable, le prog reste dans mon gestionnaire des taches sauf si je l'ai quitté en clickant sur mon bouton exit. 
Est il possible d'unloader toutes mes forms en clickant sur le X de la form principale de la meme facon que je le fait avec mon bouton exit ???

Merci,

+++

cs_Jack · Answer

Salut sbouquet 
Si tu veux clore ton appli, simplement utilise End
Sinon, pour décharger proprement toutes les feuilles, dans Form_Unload, tu peux faire :
    Dim xItem As Form
    For Each xItem In Me
        Unload xItem
    Next

Vala
Jack

sacaman · Answer

salut
tu peux faire ca
dans ta propriorite du form unload
form1.unload
....
formX.unload
end
exit

Renfield · Answer

(Presque) d'accord avec Jack


Private sub Form_Unload( Cancel as Integer )
    Dim Form as Form
    For each Form in Forms
       if Not Form is Me then unload Form
    Next Form
End Sub


By Renfield

[mailto:thomas_reynald@msn.com thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)

Renfield · Answer

> sacaman, ton code n'est pas très pratique (il fonctionne...) : tu dois mettre une ligne par form de ton appli, et ne pas oublier de maintenir celle ci en cas d'ajout / suppresion / Renommage des forms.......

By Renfield

[mailto:thomas_reynald@msn.com thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)

sacaman · Answer

salut renfield
je sais que votre code est plus pratique pour automatiser la procedure. mais, moi j'ai donner une autre possibilité pour autres perssonnes qui lisent ces messages comme quoi qu'il ya une autre solution plus simple (pour beginer's)
salut
sacaman

Renfield · Answer

Oui oui, c'est sûr : ca fonctionne.....
et je comprends bien ta demarche  ;) 

By Renfield

[mailto:thomas_reynald@msn.com thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)

sbouquet · Answer

Merci a tous

Pb d'unload

7 réponses

Discussions similaires