Pour créer une routine d'événement pour un événement d'objet FlexPro, effectuez les trois étapes suivantes :

1.Déclarez une variable objet dans un module de classe afin de répondre aux événements.

2.Rédiger les procédures spécifiques de l'événement.

3.Initialiser l'objet déclaré d'un autre module.

Déclarer la variable d'objet

Avant de pouvoir écrire les procédures pour les événements d'un objet FlexPro, vous devez créer un nouveau module de classe et déclarer un objet du type souhaité (par exemple, FpObject) avec des événements. Supposons qu'un nouveau module de classe appelé "EventClassModule" soit créé. Le nouveau module de classe contient le code suivant :

Public WithEvents oObject As FpObject

Rédaction de procédures d'événements

Une fois que le nouvel objet avec événements a été déclaré, il apparaît dans la liste déroulante Objet du module de classe, et vous pouvez écrire des procédures d'événements pour le nouvel objet. (Si vous sélectionnez le nouvel objet dans la liste Objet, les événements valides pour l'objet sont répertoriés dans la liste déroulante Procédure ) Sélectionnez un événement dans cette liste. Une procédure vide est ajoutée au module de classe.

Private Sub ObjectoObject_ObjectModified(ByVal Object As Object)

End Sub

Initialisation de l'objet déclaré

Avant l'exécution de la procédure, une connexion doit être établie entre l'objet déclaré dans le module de classe "oObj" et l'objet FpObject. Cette connexion peut être mise en place en utilisant le code suivant à partir de n'importe quel module :

Dim X As New EventClassModule

Sub Register_Event_Handler()

    Set X.oObject = ActiveDatabase.RootFolder.Object("Formula.FML")

End Sub

Lancez la procédure "Register_Event_Handler". Une fois la procédure exécutée, l'objet oObj du module de classe référence l'objet FpObject souhaité. Les procédures d'événement du module de classe sont ensuite appelées dès que les événements se produisent.