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 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
Voir aussi
Référence
Application, page du Concepteur de projets (Visual Basic)