Das geht ungefähr so:
Du machst ein Formular. Im Code vom Formular kannst Du dann die verschiedenen Events definieren.
Zuerst die Event-Definition
Private WithEvents oFileevents As FileUIEvents
Private WithEvents oDocumentEvents As DocumentEvents
Dann die Initialisierung:
Private Sub Form_Initialize()
Set Inv_App = GetObject(, "Inventor.application")
Set oFileevents = Inv_App.FileUIEvents
Set Inv_Doc = Inv_App.ActiveDocument
Set oDocumentEvents = Inv_Doc.DocumentEvents
....
Dann die Events:
***************
Private Sub oDocumentevents_OnClose(ByVal BeforeOrAfter As inventor.EventTimingEnum, ByVal Context As inventor.NameValueMap, HandlingCode As inventor.HandlingCodeEnum)
End
End Sub
*****************
oder
******************
Private Sub oDocumentEvents_OnChange(ReasonsForChange As Long, ByVal BeforeOrAfter As inventor.EventTimingEnum, ByVal Context As inventor.NameValueMap, HandlingCode As inventor.HandlingCodeEnum)
.........
Achtung: Wenn Du im Event oDocumentEvents_OnChange was am Dokument änderst, kriegst Du einen rekursiven Aufruf vom Event - da mußt Du aufpassen, ich hab da bald mal die Übersicht verloren am Anfang.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP