Partilhar via

Como: Registrar mensagens quando o aplicativo inicia ou desliga (Visual Basic)

  • Artigo

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

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

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

  2. Clique na guia Aplicativo .

  3. Clique no botão Exibir eventos do aplicativo para abrir o Editor de códigos .

    Isso abre o arquivo ApplicationEvents.vb.

Para registrar mensagens quando o aplicativo é iniciado

  1. Tenha o arquivo ApplicationEvents.vb aberto no Editor de Códigos. No menu Geral, escolha MyApplication Events.

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

    O aplicativo gera o Startup evento antes que o aplicativo principal seja executado.

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

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

Para registrar mensagens quando o aplicativo é desligado

  1. Tenha o arquivo ApplicationEvents.vb aberto no Editor de Códigos. No menu Geral, escolha MyApplication Events.

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

    O aplicativo gera o Shutdown evento depois que o aplicativo principal é executado, mas antes de ser desligado.

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

    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ódigos. Para obter mais informações, consulte Página de aplicativo, 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

Consulte também