Rendere trasparente la mappa mostrata da una MapView

Da Gambas-it.org - Wikipedia.
Versione del 19 nov 2024 alle 10:47 di Vuott (Discussione | contributi)

(diff) ← Versione meno recente | Versione attuale (diff) | Versione più recente → (diff)

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. [nota 1]

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.
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.
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. [nota 2]

Public Sub Form_Open()
 
 With PictureBox1
' Assegnamo la "PictureBox come oggetto nuovo "figlio" della "MapView":
   .Reparent(MapView1, 0, 0)
' Gerarchicamente poniamo la "PictureBox al di sotto del suo nuovo "genitore":
   .Lower()
   .Picture = Picture.Load(".icon.png")
   .W = .Picture.W
   .H = .Picture.H
 End With
 
 With MapView1
   .Background = Color.Transparent
   .Map.AddTile("GoogleMaps", "https://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"]
   .Map["GoogleMaps"].Opacity = 0.6
   .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 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"]
Al riguardo vedere: Conoscere la versione più recente di Google Maps satellite