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.
| (2 versioni intermedie di uno stesso utente non sono mostrate) | |||
| Riga 1: | Riga 1: | ||
| − | 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''. | + | 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 5: | Riga 5: | ||
| − | + | Public Sub _new() | |
With Me | With Me | ||
| Riga 14: | Riga 14: | ||
MapView1 = New MapView(Me) As "MapView1" | MapView1 = New MapView(Me) As "MapView1" | ||
| − | |||
| − | |||
| − | + | End | |
| + | |||
| + | |||
| + | Public Sub Form_Open() | ||
With MapView1.Map | With MapView1.Map | ||
| Riga 25: | Riga 26: | ||
End With | End With | ||
| − | + | End | |
| + | |||
| − | + | 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. | + | Me.Title = "Lat. = " & Format(mp.Lat, "#.000000") & " " & "Lon. = " & Format(mp.Lon, "#.000000") |
| − | + | ||
| − | + | End | |
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
