Sdílet prostřednictvím

Postupy: Protokolování zpráv při spuštění nebo ukončení aplikace (Visual Basic)

  • Článek

Objekty a My.Log objekty můžete použít My.Application.Log k protokolování informací o událostech, ke kterým dochází ve vaší aplikaci. Tento příklad ukazuje, jak použít metodu My.Application.Log.WriteEntryStartup s událostmi a Shutdown zapisovat informace o trasování.

Přístup k kódu obslužné rutiny události aplikace

  1. Vyberte projekt v Průzkumník řešení. V nabídce Projekt zvolte Vlastnosti.

  2. Klikněte na kartu Aplikace .

  3. Kliknutím na tlačítko Zobrazit události aplikace otevřete Editor kódu.

    Tím se otevře soubor ApplicationEvents.vb.

Protokolování zpráv při spuštění aplikace

  1. Otevřete soubor ApplicationEvents.vb v Editoru kódu. V nabídce Obecné zvolte Události aplikace MyApplication.

  2. V nabídce Deklarace zvolte Po spuštění.

    Aplikace vyvolá Startup událost před spuštěním hlavní aplikace.

  3. Přidejte metodu My.Application.Log.WriteEntry do obslužné rutiny Startup události.

    My.Application.Log.WriteEntry("Application started at " &
    My.Computer.Clock.GmtTime.ToString)

Protokolování zpráv při vypnutí aplikace

  1. Otevřete soubor ApplicationEvents.vb v Editoru kódu. V nabídce Obecné zvolte Události aplikace MyApplication.

  2. V nabídce Deklarace zvolte Vypnout.

    Aplikace vyvolá Shutdown událost po spuštění hlavní aplikace, ale před jejím vypnutím.

  3. Přidejte metodu My.Application.Log.WriteEntry do obslužné rutiny Shutdown události.

    My.Application.Log.WriteEntry("Application shut down at " &
    My.Computer.Clock.GmtTime.ToString)

Příklad

Pomocí Návrháře projektů můžete získat 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é