Share via

Como registrar mensagens em log quando o aplicativo é iniciado ou encerrado (Visual Basic)

  • Artigo

É possível usar os objetos My.Application.Log e My.Log para registrar em log as 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 informações de rastreamento.

Para acessar o código do manipulador de eventos do aplicativo

  1. Selecione um projeto no Gerenciador de Soluções. No menu Projeto, escolha Propriedades.

  2. Clique na guia Aplicativo.

  3. Clique no botão Exibir Eventos de Aplicativo para abrir o Editor de Códigos.

    Isso abrirá o arquivo ApplicationEvents.vb.

Para registrar mensagens em log quando o aplicativo é iniciado

  1. Abra o arquivo ApplicationEvents.vb no Editor de Códigos. No menu Geral, escolha Eventos MyApplication.

  2. No menu Declarações, escolha Inicialização.

    A aplicativo gera o evento Startup antes da execução do aplicativo principal.

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

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

Para registrar mensagens em log quando o aplicativo é desligado

  1. Abra o arquivo ApplicationEvents.vb no Editor de Códigos. No menu Geral, escolha Eventos MyApplication.

  2. No menu Declarações, escolha Desligamento.

    A aplicativo gera o evento Shutdown após a execução do aplicativo principal, mas antes de desligar.

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

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

Exemplo

Você pode usar o Designer de Projeto para acessar os eventos do aplicativo no Editor de Códigos. 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

Confira também