Udostępnij za pośrednictwem

Porady: rejestrowanie wiadomości podczas uruchamiania lub wyłączania aplikacji (Visual Basic)

  • Artykuł

Obiekty i My.Log umożliwiają My.Application.Log rejestrowanie informacji o zdarzeniach występujących w aplikacji. W tym przykładzie pokazano, jak używać My.Application.Log.WriteEntry metody z zdarzeniami Startup i Shutdown do zapisywania informacji śledzenia.

Aby uzyskać dostęp do kodu obsługi zdarzeń aplikacji

  1. Wybierz projekt w Eksplorator rozwiązań. W menu Projekt wybierz pozycję Właściwości.

  2. Kliknij kartę Aplikacja .

  3. Kliknij przycisk Wyświetl zdarzenia aplikacji, aby otworzyć Edytor kodu.

    Spowoduje to otwarcie pliku ApplicationEvents.vb.

Aby rejestrować komunikaty po uruchomieniu aplikacji

  1. Otwórz plik ApplicationEvents.vb w Edytorze kodu. W menu Ogólne wybierz pozycję MyApplication Events (Zdarzenia aplikacji).

  2. W menu Deklaracje wybierz pozycję Uruchamianie.

    Aplikacja zgłasza Startup zdarzenie przed uruchomieniem głównej aplikacji.

  3. Dodaj metodę My.Application.Log.WriteEntry do procedury obsługi zdarzeń Startup .

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

Aby rejestrować komunikaty po zamknięciu aplikacji

  1. Otwórz plik ApplicationEvents.vb w Edytorze kodu. W menu Ogólne wybierz pozycję MyApplication Events (Zdarzenia aplikacji).

  2. W menu Deklaracje wybierz pozycję Zamknij.

    Aplikacja zgłasza Shutdown zdarzenie po uruchomieniu głównej aplikacji, ale przed jej zamknięciem.

  3. Dodaj metodę My.Application.Log.WriteEntry do procedury obsługi zdarzeń Shutdown .

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

Przykład

Aby uzyskać dostęp do zdarzeń aplikacji w Edytorze kodu, możesz użyć Projektant Project. Aby uzyskać więcej informacji, zobacz Strona aplikacji, Project Projektant (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

Zobacz też