Bonjour,
Soit tu crées une classe avec les objets qui t'intéressent
dans le but de réutiliser le code,
soit tu crées à chaque fois des "Objet automation dynamique"
Tu verres ce n'est pas plus compliqué que ça avec Windev.
Si ce n'est pas assez clair, tu peux reposer la question
dans le forum et je te répondrai plus concrètement
Salutations
"Fadel Memmi" <FadelMemmi@yahoo.fr> wrote:
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
vraiment
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
réutilisable
( ou variable ) , ça serait parfait!
Ou si quelqu'un peut traduire la fonction ci-dessous qui est en VB vers
Windev8.
//**********************************************
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