Bonjour,

Avec MaoPoint 2004 et Windev, j'ai réussi à faire fonctionner le control
de MapPoint.

Le seul problème que j'ai c'est que les instructions sont
trop longues si on ne crée pas d'objets intermédiares comme en Visual Basic
( voir ci-dessous )

SI quelqu'un peut me dire comme créer ces objets intermédiaires ça sera

sympa.

Par exemple :
MappointControl1>>ActiveMap>>AddPushpin(MappointControl1>>ActiveMap>>FindAddressResults(cStreet,cCity,cOtherCity
, cRegion , cPostalCode)>>Item(1))>>note = "DEPART"


Si par exemple je peux mettre MappointControl1>>ActiveMap dans un objet

( ou variable ) , ça serait parfait!

Ou si quelqu'un peut traduire la fonction ci-dessous qui est en VB vers

//**********************************************
Sub FirstWaypointName()

Dim objApp As New MapPoint.Application
Dim objMap As MapPoint.Map
Dim objRoute As MapPoint.Route

'Configure l'application
Set objMap = objApp.ActiveMap
Set objRoute = objMap.ActiveRoute
objApp.Visible = True
objApp.UserControl = True

'Ajoute des étapes et calcule l'itinéraire
objRoute.Waypoints.Add objMap.FindResults("Seattle, WA").Item(1)
objRoute.Waypoints.Add objMap.FindResults("Redmond, WA").Item(1)
objRoute.Calculate

'Quelle est la première étape de l'itinéraire ?
MsgBox "Première étape de l'itinéraire : " _
+ objRoute.Waypoints.Item(1).Name

End Sub
//***********************************************************

Cordialement
Fadel