Bibliothèque Visio clsEventSink

Question

Je souhaite créer un objet événement en suivant le guide dans https://msdn.microsoft.com/en-us/library/office/ff767482.aspx. Un problème se pose lorsque je crée une variable:

mEventSink Comme clsEventSink

J'ai reçu une erreur de compilation: type défini par l'utilisateur non défini

J'ai essayé la recherche d'une bibliothèque pour cela, mais je suis incapable de trouver une source qui me donne une solution.

Answer 1

Je suppose que vous avez placé tout le code dans un seul module standard, deux modules distincts, ou que vous n'avez pas renommé le module classe correctement, mais notez les instructions nécessaires pour créer un module classe (c.-à-pas d'un module standard):

Copy this sample code into a new class module in VBA or Visual Basic, naming the module clsEventSink. You can then use the event-sink module that follows to create an instance of the clsEventSink class and an Event object for the MouseMove event that sends notifications of event firings to the class instance.

Ainsi, la première section de code, qui implémente l'interface IVisEventProc, entre dans le module de classe et la deuxième partie, avec le procédé d'initialisation va dans un module standard.