Visualizza wikitesto di Ottenere una Image dalla mappa mostrata da una MapView

Per ottenere un oggetto <I>Image</i>, e da questo quindi un file immagine, della mappa corrente mostrata da una ''MapView'', è possibile adottare due modalità. <SUP>&#091;[[#Note|nota 1]]&#093;</sup>

===Uso del Metodo MapView.Map.Draw()===
Mostriamo un esempio pratico:
 Private MapView1 As MapView
 
 
 Public Sub Form_Open()
 
  Dim mp As New MapPoint
 
 <FONT Color=gray>' ''Specifica le coordinate geografiche del centro della mappa alla sua apertura iniziale:''</font>
  mp.Lat = 41.8902142
  mp.Lon = 12.4900422
 
  With Me
    .W = Screen.AvailableWidth
    .H = Screen.AvailableHeight
    .Arrangement = Arrange.Fill
  End With
  With MapView1 = New MapView(Me) As "MapView1"
 <FONT Color=gray>' ''Imposta un "Raster Tiles Server" remoto:''</font>
    .Map.AddTile("opentopo", "https&#058;//a.tile.opentopomap.org/{z}/{x}/{y}.png")
    .Map.Zoom = 16
 <FONT Color=gray>' ''Imposta il centro della mappa visualizzata all'inizio:''</font>
    .Map.Center = mp
  End With
 
 End
 
 
 Public Sub MapView1_MouseUp()
 
 <FONT Color=gray>' ''Se si clicca con il tasto destro del mouse sulla mappa, si avvia la creazione dell'immagine della "MapView":''</font>
  If Not Mouse.Right Then Return
    
  Dim im As New Image(MapView1.W, MapView1.H, Color.White, Image.Standard)
  
  With Paint
    .Begin(im)
    <FONT Color=#B22222>MapView1.Map.Draw()</font>
    .End
  End With
  
  im.Save("/tmp/prova.png", 100)
   
 End
Se si desidera che il file immagine venga creato automaticamente ad ogni rinnovo del disegno della mappa, allora <SPAN Style="text-decoration:underline">si utilizzerà l'Evento "_Draw()"</span> della Classe ''MapView'' al posto dell'Evento "MapView1_MouseUp()".


===Uso del Metodo MapView.Map.Grab()===
Di seguito mostriamo un semplice esempio:
 Private MapView1 As MapView
 
 
 Public Sub Form_Open()
 
  Dim mp As New MapPoint
 
 <FONT Color=gray>' ''Specifica le coordinate geografiche del centro della mappa alla sua apertura iniziale:''</font>
  mp.Lat = 41.8902142
  mp.Lon = 12.4900422
 
  With Me
    .W = Screen.AvailableWidth
    .H = Screen.AvailableHeight
    .Arrangement = Arrange.Fill
  End With
  With MapView1 = New MapView(Me) As "MapView1"
 <FONT Color=gray>' ''Imposta un "Raster Tiles Server" remoto:''</font>
    .Map.AddTile("opentopo", "https&#058;//a.tile.opentopomap.org/{z}/{x}/{y}.png")
    .Map.Zoom = 16
 <FONT Color=gray>' ''Imposta il centro della mappa visualizzata all'inizio:''</font>
    .Map.Center = mp
  End With
 
 End
 
 
 Public Sub MapView1_MouseUp()
 
 <FONT Color=gray>' ''Se si clicca con il tasto destro del mouse sulla mappa, si avvia la creazione dell'immagine della "MapView":''</font>
  If Not Mouse.Right Then Return
 
  Dim im As New Image(MapView1.W, MapView1.H, Color.White, Image.Standard)
 
 <FONT Color=gray>' ''Carica nell'oggetto "Image" i dati dell'immagine della mappa mostrata dalla "MapView":''</font>
  With MapView1
    im = .Map.<FONT Color=#B22222>Grab</font>(.Map.GetTile("opentopo").MaxBounds(.Map.Center, .Map.Center), .W, .H, 0, .Map.Zoom)
  End With
 
  im.Save("/tmp/prova.png", 100)
 
 End



=Note=
[1] Vedere anche: [[Ottenere un file png dalla mappa mostrata da una MapView]]