Mostrare un Balloon sulla MapView se il puntatore del mouse è dentro una determinata area della mappa
Da Gambas-it.org - Wikipedia.
Versione del 7 gen 2022 alle 20:13 di Vuott (Discussione | contributi) (Creata pagina con "Mostriamo di seguito un possibile codice, ampiamente commentato, per far apparire un ''Balloon'' sulla ''MapView'' se il puntatore del mouse è all'interno di una determinata...")
Mostriamo di seguito un possibile codice, ampiamente commentato, per far apparire un Balloon sulla MapView se il puntatore del mouse è all'interno di una determinata area (quadrata o rettangolare) prestabilita della mappa.
Private mp1 As New MapPoint(41.891095, 12.491366) ' Le coordinate geografiche del vertice in alto a sinistra dell'area Private Const LATO As Byte = 30 ' La lunghezza del lato dell'area Private rct As Rect Public Sub Form_Open() Dim ob1, ob2, obs As Object With MapView1.Map .AddTile("GoogleMap", "https://mt0.google.com/vt/lyrs=s&hl=&x={x}&y={y}&z={z}") .Zoom = 15 ' Imposta il centro della mappa mostrata all'inizio: .Center = mp1 End With ob1 = MapView1.Children[0] ob2 = ob1.Children[0] obs = New Observer(ob2) As "DrawingArea1" End Public Sub MapView1_MouseDown() Dim mp As MapPoint Dim pt As New Point(Mouse.X, Mouse.Y) mp = MapView1.Map.PixelToMapPointRel(pt) ' Mostra le coordinate geografiche correnti del puntatore del mouse sul lato superiore della "MapView": Me.Text = Format(mp.Lat, "#.000000") & " " & Format(mp.Lon, "#.000000") End ' Fa sì che l'Oggetto "Rect" acquisisca dall'Oggetto "Map" le coordinate in pixel (.X e .Y) dalle coordinate geografiche fissate per il punto geografico che sarà interessato dal "Ballon": Public Sub DrawingArea1_Draw() With MapView1.Map ' Imposta l'area (in tal caso un quadrato immaginario), che determinerà l'apparizione del "Balloon", qualora il puntatore del mouse dovesse capitarvi all'interno: rct = Rect(.MapPointToPixelRel(mp1).X, .MapPointToPixelRel(mp1).Y, LATO + ((20 * .Zoom) / 15), LATO + ((20 * .Zoom) / 15)) End With End Public Sub MapView1_MouseMove() Dim pt As New Point(Mouse.X, Mouse.Y) Dim mp2 As MapPoint = MapView1.Map.PixelToMapPointRel(pt) ' Per verificare se il puntatore del mouse è entrato nell'area prestabilita, bisogna tenere conto delle "coordinate geografiche" sulla mappa, e NON delle coordinate X e Y della "MapView": Dim x As Short = MapView1.Map.MapPointToPixelRel(mp2).X Dim y As Short = MapView1.Map.MapPointToPixelRel(mp2).Y Me.Text = Format(mp2.Lat, "#.000000") & " " & Format(mp2.Lon, "#.000000") ' Se il puntatore del mouse è all'interno dell'area stabilita, viene mostrato in quel punto un "Balloon": If rct.Contains(x, y) Then Balloon.Info("Anfiteatro Flavio (Colosseo)", MapView1, x, y) Else Balloon.Hide Endif End