Como: mensagens de Log quando o aplicativo é iniciado ou desligado (Visual Basic)

Artigo
02/25/2013

Você pode usar os objetos My.Application.Log e My.Log para criar um log de informações sobre eventos que ocorrem em seu aplicativo.Este exemplo mostra como usar o método My.Application.Log.WriteEntry com os eventos Startup e Shutdown para gravar as informações de rastreamento.

Para acessar código do manipulador de eventos do aplicativo

Tenha um projeto selecionado no Solution Explorer.No menu Project, escolha Properties.
Clique na guia Application.
Clique no botão View Application Events para abrir o Editor de Código.

Isso abre o arquivo ApplicationEvents.vb.

Para efetuar mensagens de log quando o aplicativo é iniciado

Deixe o arquivo ApplicationEvents.vb aberto no Editor do Código.No menu General, escolha MyApplication Events.
No menu Declarations, escolha Startup.

O aplicativo gera o evento de Startup antes do aplicativo principal é executado.

Adicione o método My.Application.Log.WriteEntry para o manipulador de eventos Startup.

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

Para efetuar mensagens de log quando o aplicativo termina

Deixe o arquivo ApplicationEvents.vb aberto no Editor do Código.No menu General, escolha MyApplication Events.
No menu Declarations, escolha Shutdown.

O aplicativo aumenta o evento de Shutdown após a execução do aplicativo principal, mas antes que é desligado.

Adicione o método My.Application.Log.WriteEntry para o manipulador de eventos Shutdown.

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

Exemplo

Você pode usar o Project Designer para acessar os eventos do aplicativo no Editor de Código.Para obter mais informações, consulte Página de aplicativo, Designer de projeto (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