Visualizza wikitesto di Rendere trasparente la mappa mostrata da una MapView

E' possibile rendere trasparente la mappa mostrata da una ''MapView'', al fine ad esempio di far vedere contemporaneamente e al di sotto di tale oggetto un'altra immagine. <SUP>&#091;[[#Note|nota 1]]&#093;</sup>

Essenzialmente è necessario assegnare alla Proprietà "MapView.Background" il valore della costante ''Color.Transparent'', e assegnare alla Proprietà "MapView.Map.Opacity" un valore compreso tra 0,00 e 1,00.

Mostriamo di seguito un semplice esempio, nel quale si porrà una ''PictureBox'' e al di sopra di essa si porrà una ''MapView''.
<BR>Sarà dunque mostrata un'immagine, caricata nella predetta ''PictureBox'', al di sotto della mappa dell'isola di Linosa, ripresa da satellite e mostrata sulla ''MapView''.
<BR>Inoltre, cliccando su un qualunque punto dell'oggetto ''MapView'' (compresa la parte sovrastante la ''PictureBox'', saranno mostrate in console le coordinate geografiche del punto cliccato con il puntatore del mouse. <SUP>&#091;[[#Note|nota 2]]&#093;</sup>
 Public Sub Form_Open()
  
  With PictureBox1
 <FONT Color=gray>' ''Assegnamo la "PictureBox'' come oggetto nuovo "figlio" della "MapView":''</font>
    .Reparent(MapView1, 0, 0)
 <FONT Color=gray>' ''Gerarchicamente poniamo la "PictureBox'' al di sotto del suo nuovo "genitore":''</font>
    .Lower()
    .Picture = Picture.Load(".icon.png")
    .W = .Picture.W
    .H = .Picture.H
  End With
  
  With MapView1
    <FONT Color=#B22222>.Background = Color.Transparent</font>
    .Map.AddTile("GoogleMaps", "https&#058;//khms{s}.google.it/kh/v={version}&src=app&x={x}&y={y}&z={z}&s=Galile", ["version": "991"])
    .Map["GoogleMaps"].SubDomains = ["0", "1", "2"]
    <FONT Color=#B22222>.Map["GoogleMaps"].Opacity = 0.6</font>
    .Map.Center = MapPoint(35.8552054, 12.8692769)
    .Map.Zoom = 14
  End With
  
 End
 
 
 Public Sub MapView1_MouseUp()
  
  Dim pt As New Point(Mouse.X, Mouse.Y)
  
  Print "Lat. "; Geo.DecToSex(MapView1.Map.PixelToMapPointRel(pt).Lat, 1); "  -  Lon. "; Geo.DecToSex(MapView1.Map.PixelToMapPointRel(pt).Lon, 2)
   
 End



=Note=
[1] Si ringrazia il membro [http://www.gambas-it.org/smf/index.php?action=profile;u=1249 Gianluigi] per il suo contributo di idee.

[2] Qualora la mappa non appaia, verificare la versione GoogleMap, ed eventualmente modificarla in questo punto del codice: ["version": "991"]
<BR>Al riguardo vedere: [[Conoscere la versione più recente di Google Maps satellite]]