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