|
Cet article a fait l'objet d'une traduction automatique. Déplacez votre pointeur sur les phrases de l'article pour voir la version originale de ce texte. Informations supplémentaires.
|
Traduction
Source
|
Comment : enregistrer des messages lorsque l'application démarre ou s'arrête (Visual Basic)
Pour accéder au code du gestionnaire d'événements de l'application
-
Sélectionnez un projet dans l'Explorateur de solutions. Dans le menu Projet, choisissez Propriétés. -
Cliquez sur l'onglet Application. -
Cliquez sur le bouton Afficher les événements de l'application pour ouvrir l'éditeur de code. Le fichier ApplicationEvents.vb s'ouvre.
Pour enregistrer des messages au démarrage de l'application
-
Ouvrez le fichier ApplicationEvents.vb dans l'éditeur de code. Dans le menu Général, choisissez Événements MyApplication. -
Dans le menu Déclarations, choisissez Démarrage. L'application déclenche l'événement Startup avant l'exécution de l'application principale. -
Ajoutez la méthode My.Application.Log.WriteEntry au gestionnaire d'événements Startup. My.Application.Log.WriteEntry("Application started at " & My.Computer.Clock.GmtTime.ToString)
Pour enregistrer des messages lorsque l'application s'arrête
-
Ouvrez le fichier ApplicationEvents.vb dans l'éditeur de code. Dans le menu Général, choisissez Événements MyApplication. -
Dans le menu Déclarations, choisissez Arrêt. L'application déclenche l'événement Shutdown après l'exécution de l'application principale, mais avant son arrêt. -
Ajoutez la méthode My.Application.Log.WriteEntry au gestionnaire d'événements Shutdown. My.Application.Log.WriteEntry("Application shut down at " & My.Computer.Clock.GmtTime.ToString)
Private Sub MyApplication_Startup( ByVal sender As Object, ByVal e As ApplicationServices.StartupEventArgs ) Handles Me.Startup My.Application.Log.WriteEntry("Application started at " & My.Computer.Clock.GmtTime.ToString) End Sub Private Sub MyApplication_Shutdown( ByVal sender As Object, ByVal e As System.EventArgs ) Handles Me.Shutdown My.Application.Log.WriteEntry("Application shut down at " & My.Computer.Clock.GmtTime.ToString) End Sub
