Discussion :

[sovo]

euh j'espere que tu n'as pas fait un copier coller du code. car si c'est le cas alors c vrai ca ne marche pas car en fait j'ai oublier les paramettres de l'evenement Unload.

au lieu de

private form1_unload ()

fait plutot

private sub form1_Unload(cancel as integer)

Desole, dans la rapiditer j'ai oublie et je n'ai pas remarque .

[zazaraignée]

Salut

Le plus radical pour fermer une application et toutes ses Forms:

Code :

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

1
2
3
Private Sub BoutonQuitter_Click()
End     ' ça, ça ferme tout, tout, tout !
End Sub

[sovo]

oui mais lui veut le faire lorsqu'on click sur fermer (la croix tout en haut a gauche). d'ou ma fonction sur l'un de mes post ci dessus (bon c vrai avec quelques erreurs, mais je me suis rattrape).

[zazaraignée]

Alors c'est la procédure événementielle QueryUnload.

Le paramètre Cancel permet de fermer ou pas l'appli.

Le paramètre... heu, sais plus son nom... l'autre paramètre, donc sert à déterminer l'origine de la requête de la fermeture: la croix, un menu ou bouton, du code provenant d'une autre procédure. Il y a des constantes que l'on peut utiliser qui sont d'ailleurs plus explicites que les valeurs numériques retournées par ce paramètre.

Un petit tour dans l'aide pour avoir plus de précision...

[sovo]

en fait le probleme (je croit)etait du au fait qu'il avais fait un copier coller de mon code hors dans mon code il manquai par exemple "sub" juste apres le "private" (si tu as jette un coup d'oeil a mon code).

Entre autre ce que tu dit n'est pas faux, mais je croit que lorsque on click sur la femer l'un des evenement qui sont declancher est l'evenement Unload. alors pendant qu'il decharge la form encours il decharge aussi toutes les autres form. je croit que nou faisons la meme chose mais de facon differentes. Toi tu voudrais d'abord decharger toutes les forms (avec le QueryUnload, evenement se produisant avant le Unload), or moi je le fait pendant que je decharge la form en cour.

[Anduriel]

Alors voila ce que ça me donne:

Code :

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

1
2
3
4
5
6
Private Sub Form1_Unload(Cancel As Integer)
    Dim ctl As Form
    For Each ctl In Forms
        Unload ctl
    Next
End Sub

Hélas ça ne donne toujours rien (idem avec End tout court)

[sovo]

je ne sais pas pourquoi mais chez moi ca marche.


oops je voit essai ca :

Code :

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

1
2
3
4
5
6
7
 
Private Sub Form_Unload(Cancel As Integer) 
    Dim ctl As Form 
    For Each ctl In Forms 
        Unload ctl 
    Next 
End Sub

[ouskel'n'or]

Apparemment, tu es en VB... En VBA, j'ai "Deactivate" à la place de "Unload". Et là, je mets ce code et, dans tous les cas de figures, il fonctionne... Tu essaies et tu dis

Code :

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

1
2
3
Private Sub UserForm_Deactivate()
End
End Sub

Qu'il y ait une ou plusieurs forms ouvertes ou actives...

A+

[Anduriel]

Arg c'est toujours avec moi que ça plante...

Code :

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

1
2
3
Private Sub Form1_Deactivate()
    End
End Sub

Ca ne change rien du tout

[Anduriel]

Ah! Le code de sovo fonctionne! Enfin! Merci à vous tous !

[sovo]

ouf enfin c pas trop tot.

Et ton probleme de variable global, ca va aussi ??

[Anduriel]

Pas de problème bah du coup j'ai utilisé Hide (d'ou mon problème de fermeture ^^)

[zazaraignée]

Salut

Pas de problème bah du coup j'ai utilisé Hide (d'ou mon problème de fermeture ^^)

Evidemment! Toutes tes Forms secondaires (du moins, celles qui ont des valeurs à réutiliser dans ta Form principale) doivent être fermées de cette façon. La Form et ses valeurs doivent être en mémoire si tu veux les utiliser dans le code de ta Form principale.