Compartir a través de

Cómo: Registrar mensajes cuando se inicia o se cierra la aplicación (Visual Basic)

Puede usar los My.Application.Log objetos y My.Log para registrar información sobre los eventos que se producen en la aplicación. En este ejemplo se muestra cómo usar el My.Application.Log.WriteEntry método con los Startup eventos y Shutdown para escribir información de seguimiento.

Para acceder al código del controlador de eventos de la aplicación

  1. Seleccione un proyecto en el Explorador de soluciones. En el menú Proyecto , elija Propiedades.

  2. Haga clic en la pestaña Aplicación .

  3. Haga clic en el botón Ver eventos de aplicación para abrir el Editor de código.

    Se abrirá el archivo ApplicationEvents.vb.

Para registrar mensajes cuando se inicia la aplicación

  1. Abra el archivo ApplicationEvents.vb en el Editor de código. En el menú General , elija MyApplication Events( Eventos de aplicación).

  2. En el menú Declaraciones , elija Inicio.

    La aplicación genera el Startup evento antes de que se ejecute la aplicación principal.

  3. Agregue el My.Application.Log.WriteEntry método al controlador de Startup eventos.

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

Para registrar mensajes cuando se cierra la aplicación

  1. Abra el archivo ApplicationEvents.vb en el Editor de código. En el menú General , elija MyApplication Events( Eventos de aplicación).

  2. En el menú Declaraciones , elija Apagar.

    La aplicación genera el Shutdown evento después de que se ejecute la aplicación principal, pero antes de que se cierre.

  3. Agregue el My.Application.Log.WriteEntry método al controlador de Shutdown eventos.

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

Ejemplo

Puede usar el Diseñador de proyectos para acceder a los eventos de la aplicación en el Editor de código. Para obtener más información, vea Página aplicación, Diseñador de proyectos (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 también