Differenze tra le versioni di "Usare il Metodo .AddPolygon di gb.map"

Versione attuale delle 10:21, 30 dic 2023

Il Metodo ".AddPolygon()" del Metodo ".AddShape()" della Classe "Map" consente di creare poligoni (da tre lati in su).

Esso si serve di un vettore bidimensionale di tipo "MapPoint" contenente tre o più Oggetti di tale tipo. All'interno di tale vettore bidimensionale è possibile usare anche la Classe "MapPoint" come statica.
La quantità di Oggetti o di Classi statiche di tipo "MapPoint" determina la quantità di angoli costituenti il poligono che verrà disegnato sulla "MapView".

Mostriamo un esempio, nel quale, cliccando con il tasto destro su quattro punti diversi sulla mappa, si disegnerà un poligono di quattro lati:

Private MapView1 As MapView
Private llaa As Float[]
Private lloo As Float[]
Private mmpp As MapPoint[][]


Public Sub Form_Open()

 With Me
   .W = Screen.AvailableWidth
   .H = Screen.AvailableHeight
   .Arrangement = Arrange.Fill
 End With

 With MapView1 = New MapView(Me) As "MapView1"
   .Map.AddTile("GoogleMap", "http://mt0.google.com/vt/lyrs=s&hl=&x={x}&y={y}&z={z}")
   .Map.Center = MapPoint(41.8903, 12.49226)
   .Map.Zoom = 14
 End With
 
End
 

Public Sub MapView1_MouseDown()
 
 Dim pt As New Point(Mouse.X, Mouse.Y)
 Dim lat As Float = MapView1.Map.PixelToMapPointRel(pt).Lat
 Dim lon As Float = MapView1.Map.PixelToMapPointRel(pt).Lon
 
' Mostra la latitudine e la longitudine del punto ove si è cliccato:
 Me.Text = "Lat. " & Format(lat, "0.000000") &
           "  -  Lon. " & Format(lon, "0.000000")
 
 If Not Mouse.Right Then Return

 If Not Object.IsValid(llaa) Then 
   llaa = New Float[]
   lloo = New Float[]
 Endif
 llaa.Push(lat)
 lloo.Push(lon)
 If llaa.count == 4 Then 
' Al Metodo ".AddPolygon()" si dovrà poi passare un vettore bidimensionale "MapPoint[][]":
   mmpp = [[MapPoint(llaa[0], lloo[0]), MapPoint(llaa[1], lloo[1]), MapPoint(llaa[2], lloo[2]), MapPoint(llaa[3], lloo[3])]]
' Volendo si potrebbe anche porre al centro della mappa il poligono disegnato - ad esempio - sulla base delle prime coordinate impostate (ossia del primo vertice impostato):
 ' MapView1.Map.Center = MapPoint.GetCenter(mmpp[0])
 Endif

End


Public Sub MapView1_MouseUp()

 If Not Mouse.Right Then Return
 If llaa.Count < 4 Then Return

 With MapView1
' Si usa dunque il Metodo ".AddPolygon()", per disegnare sulla "MapView" il poligono, e gli si passa il vettore bidimensionale "mmpp[][]":
   .Map.AddShape("polygon").AddPolygon("polygon", mmpp, Color.Red, 1, Line.DashDot)
   .Refresh()
 End With
 mmpp = Null
 llaa = Null
 lloo = Null

End

In quest'altro esempio, cliccando con il tasto destro del mouse si individuano sulla "MapView" i punti delle coordinate che rappresentano la tessera (tile), parte della mappa e contenente il punto ove si è cliccato. Tali coordinate formeranno un poligono quadrato.

Private MapView1 As MapView
Private mmpp As MapPoint[][]


Public Sub Form_Open()

 With Me
   .W = Screen.AvailableWidth
   .H = Screen.AvailableHeight
   .Arrangement = Arrange.Fill
 End With

 With MapView1 = New MapView(Me) As "MapView1"
   .Map.AddTile("GoogleMap", "http://mt0.google.com/vt/lyrs=s&hl=&x={x}&y={y}&z={z}")
   .Map.Center = MapPoint(41.8903, 12.49226)
   .Map.Zoom = 14
 End With
 
End
 

Public Sub MapView1_MouseDown()
 
 Dim pt As New Point(Mouse.X, Mouse.Y)
 Dim tl As Point
 Dim mb As MapBounds

 If Not Mouse.Right Then Return 
' Individua la tessera (tile) della mappa che comprende il punto ove si è cliccato:
 tl = Geo.MapPointToTile(MapView1.Map.PixelToMapPointRel(pt), MapView1.Map.Zoom)
 mb = Geo.TileBounds(tl.X, tl.Y, MapView1.Map.Zoom)
 
' Al Metodo ".AddPolygon()" si dovrà poi passare un vettore bidimensionale "MapPoint[][]":
 mmpp = [[MapPoint(mb.North, mb.Est), MapPoint(mb.North, mb.West), MapPoint(mb.South, mb.West), MapPoint(mb.South, mb.Est)]]
 
' Mostra la latitudine e la longitudine del punto ove si è cliccato, nonché i numeri identificativi (x, y) della tessera corrispondente a quel punto:
 Me.Text = "Lat. " & Format(MapView1.Map.PixelToMapPointRel(pt).Lat, "0.000000") &
           "  -  Lon. " & Format(MapView1.Map.PixelToMapPointRel(pt).Lon, "0.000000") &
           "  -  Tessera: " & tl
 
End


Public Sub MapView1_MouseUp()

 If Not Mouse.Right Then Return 
 
 With MapView1
' Si usa dunque il Metodo ".AddPolygon()", per disegnare sulla "MapView" il poligono, e gli si passa il vettore bidimensionale "mmpp[][]":
   .Map.AddShape("polygon").AddPolygon("polygon", mmpp, Color.Red, 1, Line.DashDot)
   .Refresh()
 End With

End