Compartir a través de

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

  • Artículo

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

Para acceder a código de 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 aplicaciones para abrir el Editor de código.

    Se abre el archivo ApplicationEvents.vb.

Para registrar mensajes cuando se inicia la aplicación

  1. Tenga el archivo ApplicationEvents.vb abierto en el Editor de código. En el menú General , elija Eventos MyApplication.

  2. En el menú Declaraciones , elija Inicio.

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

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

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

Para registrar mensajes cuando se cierra la aplicación

  1. Tenga el archivo ApplicationEvents.vb abierto en el Editor de código. En el menú General , elija Eventos MyApplication.

  2. En el declaraciones menú, elija Apagar.

    La aplicación genera el evento Shutdown después de la ejecución de la aplicación principal, pero antes del cierre.

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

    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 aplicación en el Editor de código. Para obtener más información, consulte 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

Consulte también