Postupy: Protokolování zpráv při spuštění nebo ukončení aplikace (Visual Basic)
Můžete použít objekty My.Application.Log a My.Log k protokolování informací o událostech, ke kterým dochází v aplikaci. Tento příklad znázorňuje použití metody My.Application.Log.WriteEntry s událostmi Startup a Shutdown k zapisu trasovacích informací.
Přístup ke kódu aplikace, který zpracovává události
Mějte projekt vybrán v Průzkumníku řešení.V menu Projekt vyberte Vlastnosti.
Klikněte na kartu Aplikace.
Klikněte na tlačítko Zobrazení událostí aplikace k otevření editoru kódu.
Otevřete soubor ApplicationEvents.vb.
Chcete-li protokolovat zprávy při spuštění aplikace
Mějte soubor ApplicationEvents.vb otevřený v editoru kódu.Z nabídky Obecné zvolte události MyApplication.
V nabídce Declarations klikněte na příkaz Pří spuštění.
Aplikace vyvolá událost Startup před tím než se spustí hlavní aplikace.
Přidejte metodu My.Application.Log.WriteEntry k obslužné rutině události Startup.
My.Application.Log.WriteEntry("Application started at " & My.Computer.Clock.GmtTime.ToString)
Protokolování zpráv při ukončení aplikace
Mějte soubor ApplicationEvents.vb otevřený v editoru kódu.Z nabídky Obecné zvolte události MyApplication.
Z nabídky Deklarace zvolte Vypnutí.
Aplikace vyvolá událost Shutdown po tom co aplikace ukončí svojí činnost, ale před jejím úplným vypnutím.
Přidejte metodu My.Application.Log.WriteEntry k obslužné rutině události Shutdown.
My.Application.Log.WriteEntry("Application shut down at " & My.Computer.Clock.GmtTime.ToString)
Příklad
Můžete použít Návrhář projektu pro přístup k událostem aplikace v editoru kódu.Další informace naleznete v tématu Stránka Aplikace, návrhář projektu (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
Viz také
Referenční dokumentace
Stránka Aplikace, návrhář projektu (Visual Basic)