Arrêter proprement son programme vb

Soyez le premier à donner votre avis sur cette source.

Snippet vu 21 717 fois - Téléchargée 118 fois


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
-
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
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57 -
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
-
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
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57 -
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
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57 -
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é...)

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.