Differenze tra le versioni di "Inserire del testo su una MapView"

Da Gambas-it.org - Wikipedia.
Riga 64: Riga 64:
  
 
Mostriamo un semplice codice esemplificativo:
 
Mostriamo un semplice codice esemplificativo:
  Private MapView1 As MapView
+
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