Sauvegarde lorsqu'on quitte

Commenter

Contenu du snippet

Ce code n'est peut-être pas le mieux, mais bon ...

Créer une zone de label 'Label1', avec comme propriétés : Visible = False, et Caption = "1".
Puis créer dans le menu une commande "Enregistrer", qui contient la sauvegarde en question (dans un fichier ini par exemple), puis aussi : Label1.Caption = "1".

Ensuite mettre dans chaque commande susceptible d'effectuer une action devant être enregistrée : Label1.Caption = "0".

Vous voyez donc que si une modif a été effectuée, label1 est mis à 0, mais si il y a pas besoin d'enregistrer, il est mis à 1.

N'oubliez pas d'insérer dans le code vos sauvegardes où il y a écrit 'sauvegardes ICI'.

Source / Exemple : 


Private Sub Form_Unload(Cancel As Integer)
If Label1.Caption = "0" Then
    'Si ya besoin d'enregistrer
Dim quit As Integer
quit = MsgBox("Voulez-vous sauver les modifications ???", 3 + 32 + 512, "titre de l'appli")
If quit = 2 Then
    Cancel = 1
    'ne quitte pas
ElseIf quit = 6 Then
    'sauvegardes ICI
ElseIf quit = 7 Then
    Dim sur As Integer
    sur = MsgBox("Êtes-vous sûr de ne pas vouloir sauver les modifications ???", 4 + 32, "titre de l'appli")
    If sur = 7 Then
        Cancel = 1
    End If
    'demande si on confirme de quitter sans sauvegarder
End If
End If
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.