Rapport de message :*
 

Tracé de points par PolyLine

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