Para crear una rutina de eventos para un evento del objeto Application o Databases, se deben realizar los tres pasos siguientes:
1.Declare una variable de objeto en un módulo de clase para que se responda a los eventos.
2.Escriba los procedimientos específicos del evento.
3.Inicialice el objeto declarado desde otro módulo.
Declarar la variable de objeto
Para poder escribir procedimientos para los eventos del objeto Application o Databases, se debe crear un nuevo módulo de clase y declarar un objeto de tipo Application o Databases con eventos. Supongamos que se crea un nuevo módulo de clase con el nombre "EventClassModule". El nuevo módulo de clase contiene el siguiente código:
Public WithEvents App As FlexPro.Application
o
Public WithEvents Databases As FlexPro.Databases
Escritura de procedimientos de eventos
Una vez declarado el nuevo objeto con eventos, aparecerá en el cuadro de lista desplegable Objeto del módulo de clase y podrá escribir procedimientos de eventos para el nuevo objeto. (Si selecciona el nuevo objeto en el campo "Objeto", los eventos válidos para el objeto se muestran en el cuadro de lista desplegable Procedimiento). Seleccione un evento de esta lista. Se añade un procedimiento vacío al módulo de clase.
Private Sub App_DatabaseModified(ByVal Database As Object)
End Sub
o
Private Sub Databases_BeforeDatabaseClose(ByVal Database As Object)
End Sub
Inicialización del objeto declarado
Antes de que se ejecute el procedimiento, debe establecerse una conexión entre el objeto declarado en el módulo de clase ("App" o "Databases" en este ejemplo) y el objeto Applicaton o Databases. Esta conexión puede establecerse con el siguiente código desde cualquier módulo:
Dim X As New EventClassModule
Sub Register_Event_Handler()
Set X.App = FlexPro.Application
Set X.Databases = FlexPro.Databases
End Sub
Inicie el procedimiento "Register_Event_Handler". Después de ejecutar el procedimiento, el objeto App en el módulo de clase hace referencia al objeto Application de FlexPro y el objeto Databases, al objeto Databases correspondientemente. Los procedimientos de eventos del módulo de clase se ejecutan en cuanto se producen los eventos.