Titre du sujet : Tracé de points par PolyLine par Dominou34 le 01/07/2010 18:00:14
Bonjour à tous et à toute,
je vous sollicite car j'ai besoin d'un conseil sur le traçage de points sur l'API MAP.
J'ai trouvé via http://msdn.microsoft.com/en-us/library/bb545007.aspx
une solution qui consiste à joindre les deux ou trois points... par Polyline. Parfait, pour mon usage.
J'ai repris pas-à-pas le tuto de cartographie, j'ai trituré les codes sources laissés par Alice et Didier et malgré mon acharnement le code que je laisse ici ne marche pas... Quelqu'un pourrait-il me dire ce qui ne va pas s'il vous plaît ?
Private Sub LocaliserRecherche_Click()
Dim Ligne As Long
Ligne = 2
Sheets("Recherche").Select
Do Until Cells(Ligne, 1).Value = ""
If Cells(Ligne, 1).Value > 0 Then
CodePolyline = "var latLong = new VELatLong(" & Cells(Ligne, 9).Value & ");" _
& "var polyline = new VEShape(VEShapeType.Polyline, latLong);" _
& "polyline.HideIcon();" _
& "polyline.SetLineColor(new VEColor(0,255,0,1));" _
& "polyline.SetFillColor(new VEColor(0,0,0,0));" _
& "polyline.SetLineWidth(5);" _
& "map.AddShape(polyline);"
EnvoiScript CodePolyline
End If
Ligne = Ligne + 1
Loop
Sheets("map").Select
End Sub
Merci d'avance
|