Bonjour,
J'ai effectue plusieurs tentatives pour utiliser les evenements Mappoint.
Par exemple l'evenement SelectionChange n'est pas pris en compte que ce soit en C++ (visual ou builder) ou eb VB6
Quelqu'un aurait-il une idée pour que cela fonctionne correctement ?
Voici mon dernier test en VB6, si je mais WithEvents , le code ne compile pas, si je ne le met pas, cela compile mais les evenemetn ne sont pas pris en compte
Dim WithEvents objApp As MapPoint.Application
Dim WithEvents objMap As MapPoint.Map
Private Sub Command1_Click()
Dim objPin As MapPoint.Pushpin
'Add a Pushpin, then select it
Set objPin = objMap.AddPushpin(objMap.FindResults("Seattle, WA")(1))
objPin.Select
End Sub
Private Sub Form_Load()
'Set up the application
Set objApp = CreateObject("mappoint.application")
Set objMap = objApp.ActiveMap
objApp.Visible = True
objApp.UserControl = True
End Sub
Private Sub MappointControl1_AfterViewChange()
End Sub
Private Sub objMap_SelectionChange(ByVal NewSelection As Object, ByVal OldSelection As Object)
NewSelection.Location.GoTo
End Sub