Differenze tra le versioni di "Ottenere le coordinate geografiche dei punti sulla mappa sui quali si passa con il puntatore del mouse"

Da Gambas-it.org - Wikipedia.
(Creata pagina con "Per ottenere le coordinate geografichesui punti della mappa, sui quali si passa, si scorre con il puntatore del mouse (<SPAN Style="text-decoration:underline">non</span> è ne...")
 
 
(3 versioni intermedie di uno stesso utente non sono mostrate)
Riga 1: Riga 1:
−
Per ottenere le coordinate geografichesui punti della mappa, sui quali si passa, si scorre con il puntatore del mouse (<SPAN Style="text-decoration:underline">non</span> è necessario tenere premuto un tasto del mouse mentre lo si sposta), ma si dovrà tenere conto e utilizzare l'Evento "_MouseMove()" della Classe ''MapView''.
+
Per ottenere le coordinate geografiche sui punti della mappa, sui quali si passa, si scorre con il puntatore del mouse, <SPAN Style="text-decoration:underline">non</span> è necessario tenere premuto un tasto del mouse durante il suo spostamento, e si dovrà utilizzare l'Evento "_MouseMove()" della Classe ''MapView''.
  
 
Mostriamo un esempio pratico:
 
Mostriamo un esempio pratico:
Riga 12: Riga 12:
 
     .Arrangement = Arrange.Fill
 
     .Arrangement = Arrange.Fill
 
   End With
 
   End With
−
   With MapView1 = New MapView(Me) As "MapView1"
+
−
    .X = 0
+
   MapView1 = New MapView(Me) As "MapView1"
−
    .Y = 0
 
−
  End With
 
 
    
 
    
 
  '''End'''  
 
  '''End'''  
Riga 29: Riga 27:
 
  '''End'''
 
  '''End'''
 
   
 
   
−
  '''Public''' Sub <FONT Color=#B22222>MapView1_MouseMove()</font>
+
  '''Public''' Sub <FONT Color=#B22222>MapView1<B>_MouseMove()</b></font>
 
   
 
   
 
   Dim pt As New Point(Mouse.X, Mouse.Y)
 
   Dim pt As New Point(Mouse.X, Mouse.Y)
 
   Dim mp As MapPoint = MapView1.Map.PixelToMapPointRel(pt)
 
   Dim mp As MapPoint = MapView1.Map.PixelToMapPointRel(pt)
 
    
 
    
−
   Me.Text = "Lat. = " & Format(mp.Lat, "#.000000") & "  " & "Lon. = " & Format(mp.Lon, "#.000000")
+
   Me.Title = "Lat. = " & Format(mp.Lat, "#.000000") & "  " & "Lon. = " & Format(mp.Lon, "#.000000")
 
    
 
    
 
  '''End'''
 
  '''End'''

Versione attuale delle 08:38, 1 ott 2022

Per ottenere le coordinate geografiche sui punti della mappa, sui quali si passa, si scorre con il puntatore del mouse, non è necessario tenere premuto un tasto del mouse durante il suo spostamento, e si dovrà utilizzare l'Evento "_MouseMove()" della Classe MapView.

Mostriamo un esempio pratico: 

Private MapView1 As MapView


Public Sub _new()
 
 With Me
   .W = Screen.AvailableWidth
   .H = Screen.AvailableHeight
   .Arrangement = Arrange.Fill
 End With

 MapView1 = New MapView(Me) As "MapView1"
 
End 

Public Sub Form_Open()
 
 With MapView1.Map
  .AddTile("Open Topo", "https://a.tile.opentopomap.org/{z}/{x}/{y}.png")
  .Zoom = 15
  .Center = MapPoint(41.89018, 12.49230)
End With
 
End

Public Sub MapView1_MouseMove()

 Dim pt As New Point(Mouse.X, Mouse.Y)
 Dim mp As MapPoint = MapView1.Map.PixelToMapPointRel(pt)
 
 Me.Title = "Lat. = " & Format(mp.Lat, "#.000000") & "   " & "Lon. = " & Format(mp.Lon, "#.000000")
 
End
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Ottenere_le_coordinate_geografiche_dei_punti_sulla_mappa_sui_quali_si_passa_con_il_puntatore_del_mouse&oldid=32287"