Differenze tra le versioni di "Inserire del testo su una MapView"
Riga 64: | Riga 64: | ||
Mostriamo un semplice codice esemplificativo: | Mostriamo un semplice codice esemplificativo: | ||
− | + | Private MapView1 As MapView | |
Private pn As Panel | Private pn As Panel | ||
Private mmpp As New MapPoint[] | Private mmpp As New MapPoint[] |
Versione delle 18:11, 22 mar 2021
Una modalità per poter inserire del testo su una MapView è quella di scrivere il testo su un oggetto Image e successivamente passarlo all'ultimo argomento del Metodo ".AddPoint( ) ".
Pur spostando con il mouse la mappa, il testo resterà stabile sul punto ove era stato disegnato.
Vediamo un semplice esempio: [Nota 1]
Private mp As New MapPoint Public Sub Form_Open() With MapView1 .X = 0 .Y = 0 .W = Me.W .H = Me.H .Map.AddTile("GoogleMap", "https://khms{s}.google.it/kh/v={version}&src=app&x={x}&y={y}&z={z}&s=Galile", ["version": "894"]).SubDomains = ["0", "1", "2"] .Map.Zoom = 16 mp.Lat = 41.8902142 mp.Lon = 12.4900422 .Map.Center = mp End With End Public Sub MapView1_MouseDown() Dim pt As New Point(Mouse.X, Mouse.Y) mp = MapView1.Map.PixelToMapPointRel(pt) End Public Sub MapView1_MouseUp() Dim im As Image ' Crea l'oggetto "Image": im = New Image(60, 40, Color.Transparent, gb.Standard) ' Scrive le coordinate geografiche nell'oggetto "Image" in forma testuale: With Paint .Begin(im) .Font.Size = 12 .Brush = .Color(Color.Red) .DrawText(Format(mp.Lat, "#.######") & "\n" & Format(mp.Lon, "#.######"), 1, 1, im.W, im.H, Align.Normal) .End End With With MapView1 ' Passa l'oggetto "Image" al 3° argomento del Metodo ".AddPoint( )": .Map.AddShape("immagine").AddPoint("immagine", mp, Color.Default, im) .Refresh() .Map.Refresh() End With End
Disegnare il testo su una MapView usando l'Oggetto "Figlio" DrawingArea
L'Oggetto "MapView" mostra la mappa su una "DrawingArea", che è un Oggetto "Figlio" di un "Panel", "Figlio" a sua volta dell'Oggetto "MapView". Pertanto, sarà possibile utilizzare tale "DrawingArea" per disegnare qualsiasi cosa, facendola apparire al di sopra della mappa.
Mostriamo un semplice codice esemplificativo:
Private MapView1 As MapView Private pn As Panel Private mmpp As New MapPoint[] Public Sub Form_Open() With MapView1 = New MapView(Me) As "MapView1" .X = 0 .Y = 0 .W = Me.W .H = Me.H .Map.AddTile("topo", "https://a.tile.opentopomap.org/{z}/{x}/{y}.png") ' Individua dapprima l'Oggetto "Figlio" della "MapView", che è un "Panel": pn = .Children[0] End With End Public Sub MapView1_MouseUp() Dim pt As New Point(Mouse.X, Mouse.Y) ' Si usa l'Oggetto "MapPoint" per garantire la coerenza del puntamento su un punto della mappa anche nel caso di spostamento o variazione dello zoom della mappa medesima: mmpp.Push(MapView1.Map.PixelToMapPointRel(pt)) Me.Caption = CStr(mmpp[mmpp.Max].Lat) & " - " & CStr(mmpp[mmpp.Max].Lon) MapView1.Refresh End Public Sub MapView1_Draw() Dim i As Integer With Paint ' Disegna sull'Oggetto "Figlio" del "Panel", che è una "DrawingArea", la stessa che la Classe "MapView" usa per mostrare la mappa: .Begin(pn.Children[0]) .Brush = .Color(Color.Yellow) For i = 0 to mmpp.Max .DrawText("Testo qualsiasi", MapView1.Map.MapPointToPixelRel(mmpp[i]).X, MapView1.Map.MapPointToPixelRel(mmpp[i]).Y, .Font.TextWidth("Testo qualsiasi"), .Font.TextHeight("Testo qualsiasi"), Align.Right) Next .End End With End
Note
[1] Qualora la mappa non appaia, verificare la versione GoogleMap, ed eventualmente modificarla in questo punto: ["version": "894"]
Al riguardo vedere: https://www.gisenglish.com/2018/06/download-sas-planet-nightly-all.html