Compartir a través de

Cómo: utilizar eventos con el objeto de aplicación

  • Artículo

Importante

Este artículo se ha traducido con traducción automática; vea la declinación de responsabilidades. Para su referencia, puede encontrar la versión en inglés de este artículo aquí.

Para crear un controlador de eventos para un evento del objeto Application, tiene que completar los tres pasos siguientes:

  1. Declarar una variable de objeto en un módulo de clase para que responda a los eventos.

  2. Escribir los procedimientos de evento específicos.

  3. Inicializar el objeto declarado desde otro módulo.

Declarar la variable Object

Antes de escribir procedimientos para eventos del objeto Application, debe crear un módulo de clase nuevo y declarar un objeto de tipo Application con eventos. Por ejemplo, suponga que se crea un módulo de clase nuevo y se denomina EventClassModule. El módulo de clase nuevo contiene el código siguiente.

Public WithEvents App As Application

Escribir los procedimientos evento

Una vez declarado el nuevo objeto con eventos, aparece en la lista Objeto del módulo de clase y puede escribir los procedimientos del evento del nuevo objeto. (Al seleccionar el nuevo objeto en la lista Objeto, los eventos válidos de este objeto aparecen en la lista Procedimiento). Seleccione un evento de la lista Procedimiento para que se agregue un procedimiento vacío al módulo de clase.

Private Sub App_NewPresentation()

End Sub

Inicializar el objeto declarado

Antes de ejecutar el procedimiento, debe conectar el objeto declarado en el módulo de clase (en este ejemplo, App) con el objeto Application. Puede hacerlo con el código siguiente desde un módulo.

Dim X As New EventClassModule
Sub InitializeApp()
    Set X.App = Application
End Sub

Ejecute el procedimiento InitializeApp. A continuación, el objeto App del módulo de clase señala al objeto Application de Microsoft PowerPoint y se ejecutan los procedimientos del evento del módulo de clase cuando se produzcan los eventos.

Nota

Declinación de responsabilidades de traducción automática: Este artículo se ha traducido con un sistema informático sin intervención humana. Microsoft ofrece estas traducciones automáticas para que los hablantes de otros idiomas distintos del inglés puedan disfrutar del contenido sobre los productos, los servicios y las tecnologías de Microsoft. Puesto que este artículo se ha traducido con traducción automática, es posible que contenga errores de vocabulario, sintaxis o gramática.