Para crear una rutina de evento para un evento de un objeto FlexPro, se deben llevar a cabo los siguientes tres pasos:
1.Declare una variable de objeto en un módulo de clase para que responda a los eventos.
2.Escriba los procedimientos específicos del evento.
3.Inicialice el objeto declarado desde otro módulo.
Declarar las variables de objeto
Antes de que pueda escribir procedimientos para los eventos de un objeto FlexPro, debe crear un nuevo módulo de clase y declarar un objeto del tipo deseado (por ejemplo, FpObject) 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 oObject As FpObject
Escritura de procedimientos de evento
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 evento para el nuevo objeto. (Si selecciona el nuevo objeto en el campo Objeto, los eventos válidos para el objeto se enumeran en el cuadro de lista desplegable Procedimiento). Seleccione un evento de esa lista. Se añade un procedimiento vacío al módulo de clase.
Private Sub ObjectoObject_ObjectModified(ByVal Object 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 "oObj" y el objeto FpObject. 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.oObject = ActiveDatabase.RootFolder.Object("Formula.FML")
End Sub
Inicie el procedimiento "Register_Event_Handler". Una vez ejecutado el procedimiento, el objeto oObj del módulo de clase hace referencia al objeto FpObject deseado. Los procedimientos de eventos del módulo de clase se ejecutan en cuanto se producen los eventos.