Arrêter proprement son programme vb


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

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)