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

Versione attuale delle 19:26, 9 giu 2024

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