Differenze tra le versioni di "Ottenere un'Image dalla mappa mostrata da una MapView"

Da Gambas-it.org - Wikipedia.
Riga 24: Riga 24:
 
  <FONT Color=gray>' ''Carica nell'oggetto "Image" i dati dell'immagine della mappa mostrata dalla "MapView":''</font>
 
  <FONT Color=gray>' ''Carica nell'oggetto "Image" i dati dell'immagine della mappa mostrata dalla "MapView":''</font>
 
   With MapView1
 
   With MapView1
     im = .Map.<FONT Color=#B22222>Grab</font>(MapView1.Map.GetTile("GoogleMap").MaxBounds(mp, mp), MapView1.W, MapView1.H, 0, .Map.Zoom)
+
     im = .Map.<FONT Color=#B22222>Grab</font>(.Map.GetTile("GoogleMap").MaxBounds(mp, mp), .W, .H, 0, .Map.Zoom)
 
   End With
 
   End With
 
    
 
    

Versione delle 14:12, 15 gen 2020

Per ottenere un oggetto Image, e da questo quindi un file immagine, della mappa corrente mostrata da una MapView, è necessario utilizzare il Metodo ".Grab()" della proprietà ".Map" della Classe MapView.

Di seguito mostriamo un semplice esempio: [Nota 1]

Private mp As New MapPoint


Public Sub Form_Open()
 
 MapView1.Map.AddTile("GoogleMap", "https://khms{s}.google.it/kh/v={version}&src=app&x={x}&y={y}&z={z}&s=Galile", ["version": "860"]).SubDomains = ["0", "1", "2"]
 MapView1.Map.Zoom = 16
 
' Imposta il centro del cerchio specificandone preliminarmente le coordinate geografiche:
 mp.Lat = 41.8902142
 mp.Lon = 12.4900422
 MapView1.Map.Center = mp
  
End


Public Sub Button1_Click()
 
 Dim im As New Image(MapView1.W, MapView1.H, Color.White, gb.Standard)
 
' Carica nell'oggetto "Image" i dati dell'immagine della mappa mostrata dalla "MapView":
 With MapView1
   im = .Map.Grab(.Map.GetTile("GoogleMap").MaxBounds(mp, mp), .W, .H, 0, .Map.Zoom)
 End With
 
 im.Save("/tmp/prova.png", 100)
  
End



Note

[1] Qualora la mappa non appaia, verificare la versione GoogleMap, ed eventualmente modificarla in questo punto: ["version": "860"]
Al riguardo vedere: https://www.gisenglish.com/2018/06/download-sas-planet-nightly-all.html