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
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.