Comment faire pour que son application ne se ferme pas si elle effectue une activité importante?

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 187 fois - Téléchargée 29 fois

Contenu du snippet

C'est un code tout simple mais qui peut servir au débutant car c'est une base assez complète sur laquelle on peut restructurer diverse architecture et algorithme différent.
Ce mini code permet tout simplement, en cas d'action importante de demander à l'utilisateur s'il veut réellement l'arreter, et si c'est le cas il finit de faire son action avant de desactiver l'application, bien qu'elle ne soit plus visible.

Source / Exemple :


Private Sub Form_Unload(Cancel As Integer) 
    If Action Then 
        If (MsgBox("Voulez-vous réellement quitter cette application?", vbExclamation + vbYesNo, "Fermer l'application?") = vbNo) Then 
            Cancel = True 
        Else 
            Cancel = False 
            Do While Action = True 
                DoEvents 
            Loop 
            End 
        End If 
    End If 
End Sub

Conclusion :


Action est actif quand des actions importantes sont effectuées comme des enregistrement ou autre traitement primaire. Il est désactivé lors de la fin de cette ou de ces actions.

A voir également

Ajouter un commentaire Commentaires
cs_H2000
Messages postés
9
Date d'inscription
dimanche 9 avril 2006
Statut
Membre
Dernière intervention
7 janvier 2010

5 févr. 2008 à 07:24
Excellent, merci
cs_Multiprise
Messages postés
63
Date d'inscription
jeudi 4 décembre 2003
Statut
Membre
Dernière intervention
23 avril 2013

22 févr. 2004 à 01:32
C'est pas mal Mais au lieu de faire boucler le système par un do while loop il serait plus judicieux d'utiliser l'API suivante:
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

dans le code
sleep(500) ' en millisecondes
gandalfkhorne
Messages postés
70
Date d'inscription
dimanche 11 janvier 2004
Statut
Membre
Dernière intervention
1 octobre 2004

19 févr. 2004 à 23:48
Je ne vois pas ce que tu veux dire par gestion d'erreur dans ce cas ci, si tu peux me donner un exemple concret, merci.

Sinon désolé de ne pas avoir fait ca a une echelle plus grande, mais cet une très bonne idée et fo que j'y repense.
cs_DNBPROCESS
Messages postés
13
Date d'inscription
jeudi 2 janvier 2003
Statut
Membre
Dernière intervention
14 septembre 2004

19 févr. 2004 à 21:35
Integré a une gestion d'erreur serai plus interessant !

pas on error resume next !!!!! (o:

a+

DNBPROCESS

ps : Bonne idée !
Disicom
Messages postés
107
Date d'inscription
vendredi 8 novembre 2002
Statut
Membre
Dernière intervention
28 mars 2011

19 févr. 2004 à 09:24
Oki je suis d'accord ce code marche lors de la fermeture normal de l'application...mais en cas de fermeture de windows, windows va pas se suspendre temporairement avec ce genre de code.

++

Disicom

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.