Arrêter proprement son programme vb

4/5 (18 avis)

Snippet vu 22 583 fois - Téléchargée 121 fois


Commenter

Contenu du snippet

La variable laForm passée en arguement est la
fenêtre principale qui est à décharger en dernier.
La commande Reset s'assure de bien refermer
d'éventuels fichiers restes ouverts.

Source / Exemple : 


'------------------------------------------------
' Quitte l'application en cours proprement en
' supprimant toutes les fenêtres pouvant restées
' déclarées en mémoire
'
Sub QuitterMonProgVB(laForm As Form)
    Dim ct As Integer
    
    
    On Error Resume Next
    
    ' Suppression de toutes les fenêtres "filles"
    Do While Forms.Count > 1
        ct = 0
        
        While Forms(ct).Caption = laForm.Caption
            ct = ct + 1
        Wend
        
        Unload Forms(ct)
    Loop
    
    Reset
    Unload laForm
    End
End Sub

A voir également

Ajouter un commentaire Commentaires
cs_ezus Messages postés 6 Date d'inscription lundi 30 mars 2009 Statut Membre Dernière intervention 26 mai 2011
29 avril 2009 à 11:51
Oui justement, je voulais réellement le fermer, au lieu de le cacher ^^
(j'ai commencé le VB y'a pas longtemps ^^')
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 75
29 avril 2009 à 10:53
Hide Me ?

euh, ba ça cache juste, ça, ca ferme pas
cs_ezus Messages postés 6 Date d'inscription lundi 30 mars 2009 Statut Membre Dernière intervention 26 mai 2011
29 avril 2009 à 10:49
Merci !
je cherchais justement comment quitter une Form complètement (autrement qu'avec un Hide Me) sans fermer le programme :p
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 75
10 mars 2008 à 09:42
si un test d'equivalence a faire entre deux références, utiliser Is :

For Each myForm In Forms

If myMainForm Is myForm Then Unload myForm

Next myForm
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 75
10 mars 2008 à 09:41
c'est quoi ce jeu que vous faites avec Xor ?

A part un Unload Me....
a la rigueur, une procédure qui permettrait de décharger toutes les Forms, ca, c'est utile, mais une en particulier, l'instruction Unload est là.

le tout est de faire les choses convenablement...

couper les timers, stopper les boucles, ne pas recharger la Form en masqué (ca va vite, suffit de faire référence à l'un de ses controles ; ca charge la feuille avec les propriétés par défault, mais en masqué...)
S'inscrire maintenant

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.

Du même auteur (blq)