TABLE OF CONTENTS The last chapter dealt with Attachment Events; this one deals with model events. Two separate interfaces expose Model-related events: IModelActivateEvents and IModelChangeEvents. We will implement both interfaces in the same class module, clsModelEvents.
Implementing each of the interfaces in one class module makes it easy to identify the order in which these events are triggered. Here is the code in our class module clsModelEvents:
Implements IModelActivateEventsImplements IModelChangeEvents Private Sub IModelActivateEvents_AfterActivate(ByVal TheModel _ As ModelReference) Debug.Print "AfterActivate: " & vbTab & vbTab & _ TheModel.DesignFile.Name & vbTab & TheModel.NameEnd SubPrivate Sub IModelActivateEvents_BeforeActivate(ByVal TheModel As _ ModelReference) Debug.Print "BeforeActivate: " & vbTab & _ TheModel.DesignFile.Name & vbTab & TheModel.NameEnd Sub Private Sub IModelChangeEvents_ModelChange(ByVal TheModel As _ ModelReference, ByVal Change As MsdModelChangeType) Debug.Print "Change: " & vbTab & vbTab & vbTab & _ ...
