Comment : enregistrer des messages lorsque l'application démarre ou s'arrête (Visual Basic)
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 montre comment utiliser la méthode My.Application.Log.WriteEntry
avec les événements Startup
et Shutdown
pour enregistrer 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 quand l’application démarre
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énementsStartup
.My.Application.Log.WriteEntry("Application started at " & My.Computer.Clock.GmtTime.ToString)
Pour enregistrer des messages quand 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 qu’elle s’arrête.
Ajoutez la méthode
My.Application.Log.WriteEntry
au gestionnaire d’événementsShutdown
.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, Project Designer (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