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.
Quote:
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