Hallo zusammen!

Wie kann ich MapPoint-Ereignisse abfangen in VBA, z.B. Schließen des MapPoint-Fenster?


Ich bedanke mich für die Hilfe im Voraus.

Swetlana

Mit VBA?
In VB bräuchtest du auf alle Fälle ein mappoint object mit withevents

Public WithEvents m_mappointctl As MappointControl

Die Ereignisse sind ja in der Hilfe beschrieben.

Beispiel
Dim WithEvents objApp As MapPoint.Application

Private Sub Form_Load()
'Anwendung einrichten
Set objApp = CreateObject("mappoint.application")
objApp.Visible = True
objApp.UserControl = True
End Sub

Private Sub Command1_Click()
'Anwendung beenden, wenn auf Schaltfläche geklickt wird
objApp.Quit
End Sub

Private Sub objApp_Quit()
MsgBox "Quit-Ereignis ausgelöst"
End Sub

Grüsse,
Syd