Практическое руководство. Запись в журнал сообщений при запуске и завершении приложения (Visual Basic)

  • Статья

Объекты My.Application.Log и My.Log можно использовать для записи в журнал информации о событиях, происходящих в приложении. В этом примере показан способ использования метода My.Application.Log.WriteEntry с событиями Startup и Shutdown для записи сведений трассировки.

Доступ к коду обработчика событий приложения

  1. Выберите проект в Обозревателе решений. В меню Проект выберите Свойства.

  2. Перейдите на вкладку Приложение .

  3. Нажмите кнопку Просмотреть события приложения , чтобы открыть редактор кода.

    Откроется файл ApplicationEvents.vb.

Запись сообщений в журнал при запуске приложения

  1. Откройте в редакторе кода файл ApplicationEvents.vb. В меню Общие выберите пункт События MyApplication.

  2. В меню Объявления выберите пункт Запуск.

    Приложение создает событие Startup до запуска главного приложения.

  3. Добавьте метод My.Application.Log.WriteEntry в обработчик событий Startup .

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

Запись сообщений в журнал при завершении работы приложения

  1. Откройте в редакторе кода файл ApplicationEvents.vb. В меню Общие выберите пункт События MyApplication.

  2. В меню Объявления выберите пункт Завершение работы.

    Приложение создает событие Shutdown после запуска основного приложения, но до завершения его работы.

  3. Добавьте метод My.Application.Log.WriteEntry в обработчик событий Shutdown .

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

Пример

Для доступа к событиям приложения в редакторе кода можно использовать конструктор проектов . Дополнительные сведения см. в разделе 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

См. также