Inserire un marcatore di coordinate su una MapView

Da Gambas-it.org - Wikipedia.

Per inserire su una MapView l'immagine classica del marcatore di coordinate geografiche, si dovrà usare il Metodo ".AddPoint()" del Metodo "AddShape()" della Classe Map.

Mostriamo un semplice esempio pratico:

Public Sub Form_Open()

 dim mp As New MapPoint

 mp.Lat = 41.8902142
 mp.Lon = 12.4900422

 With MapView1.Map
   .AddTile("Roma", "http://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png")
   .Center = mp
   .Zoom = 15
   .AddShape("Marcatore").AddPoint("punto", mp)
 End With

End

oppure anche così:

 ......
 With MapView1
   .Map.AddTile("Roma", "http://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png")
   .Map.Center = mp
   .Map.Zoom = 15
   .Map.AddShape("Marcatore")
   .Map["Marcatore"].AddPoint("punto", mp)
 End With
 ......


Eliminare dalla mappa un punto marcatore già inserito

Per eliminare dalla mappa un punto marcatore già inserito, si dovrà utilizzare il Metodo ".Remove()" della Classe Map, avendo cura di inserire nel suo parametro di tipo Stringa il nome identificatore utilizzato con il Metodo ".addShape()", nonché fare il ".Refresh" della MapView.

Riprendendo il semplice esempio precedente, aggiungiamo la sub-routine per eliminare un punto marcatore già inserito:

Public Sub Button1_Click()

 MapView1.Map.Remove("Marcatore")
 MapView1.Refresh

End