Comment : enregistrer des messages lorsque l'application démarre ou s'arrête (Visual Basic)

Article
03/04/2013

Vous pouvez utiliser les objets My.Application.Log et My.Log pour enregistrer des informations sur les événements qui se produisent dans votre application.Cet exemple indique comment utiliser la méthode My.Application.Log.WriteEntry avec les événements Startup et Shutdown pour écrire des informations de traçage.

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)

Exemple

Vous pouvez utiliser le Concepteur de projets pour accéder aux événements de l'application dans l'éditeur de code.Pour plus d’informations, consultez Application, page du Concepteur de projets (Visual Basic).

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