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

Da Gambas-it.org - Wikipedia.
(Creata pagina con "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...")
 
Riga 50: Riga 50:
 
    
 
    
 
   With MapView1
 
   With MapView1
     .Map.AddShape("immagine").AddPoint("immagine", mp, Color.Default, <FONT Color=#B222222><B>im</b></font>)
+
<FONT Color=gray>' ''Passa l'oggetto "Image" al 3° argomento del Metodo ".AddPoint( )":''</font>
 +
     .Map.AddShape("immagine").<FONT Color=#B222222>AddPoint</font>("immagine", mp, Color.Default, <FONT Color=#B222222><B>im</b></font>)
 
     .Refresh()
 
     .Refresh()
 
     .Map.Refresh()
 
     .Map.Refresh()

Versione delle 10:50, 25 dic 2019

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 è stato disegnato.


Vediamo un semplice esempio:

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": "849"]).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