Usare il Metodo '.AddPolygon()' di gb.map - Cronologia

Vuott: Creata pagina con "Il Metodo ".AddPolygon()" del Metodo ".AddShape()" della Classe "Map" consente di creare poligoni (da tre lati in su). Esso si serve di un
2024-11-15T23:02:34Z

Creata pagina con "Il Metodo ".AddPolygon()" del Metodo ".AddShape()" della Classe "Map" consente di creare poligoni (da tre lati in su). Esso si serve di un <SPAN Style="text-decoration:underl..."

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

Esso si serve di un <SPAN Style="text-decoration:underline">vettore bidimensionale di tipo "MapPoint"</span> contenente tre o più Oggetti di tale tipo. All'interno di tale vettore bidimensionale è possibile usare anche la Classe "MapPoint" come statica.
<BR>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 <U>destro</u> su quattro punti diversi sulla mappa, si disegnerà un poligono di <U>quattro</u> lati:
Private MapView1 As MapView
Private llaa As Float[]
Private lloo As Float[]
Private <FONT Color=darkorange>mmpp</font> As <FONT Color=darkorange>MapPoint[][]</font>

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

<FONT Color=gray>' ''Mostra la latitudine e la longitudine del punto ove si è cliccato:''</font>
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
<FONT Color=gray>' ''Al Metodo ".AddPolygon()" si dovrà poi passare un vettore bidimensionale "MapPoint[][]":''</font>
<FONT Color=darkorange>mmpp</font> = [[MapPoint(llaa[0], lloo[0]), MapPoint(llaa[1], lloo[1]), MapPoint(llaa[2], lloo[2]), MapPoint(llaa[3], lloo[3])]]
<FONT Color=gray>' ''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])'''</font>
Endif

End

Public Sub MapView1_MouseUp()

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

With MapView1
<FONT Color=gray>' ''Si usa dunque il Metodo ".AddPolygon()", per disegnare sulla "MapView" il poligono, e gli si passa il vettore bidimensionale "mmpp[][]":''</font>
.Map.AddShape("polygon").<FONT Color=red>AddPolygon</font>("polygon", <FONT Color=darkorange>mmpp</font>, Color.Red, 1, Line.DashDot)
.Refresh()
End With
<FONT Color=darkorange>mmpp</font> = 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.
<BR>Tali coordinate formeranno un poligono quadrato.
Private MapView1 As MapView
Private <FONT Color=darkorange>mmpp</font> As <FONT Color=darkorange>MapPoint[][]</font>

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
<FONT Color=gray>' ''Individua la tessera (tile) della mappa che comprende il punto ove si è cliccato:''</font>
tl = Geo.MapPointToTile(MapView1.Map.PixelToMapPointRel(pt), MapView1.Map.Zoom)
mb = Geo.TileBounds(tl.X, tl.Y, MapView1.Map.Zoom)

<FONT Color=gray>' ''Al Metodo ".AddPolygon()" si dovrà poi passare un vettore bidimensionale "MapPoint[][]":''</font>
<FONT Color=darkorange>mmpp</font> = [[MapPoint(mb.North, mb.Est), MapPoint(mb.North, mb.West), MapPoint(mb.South, mb.West), MapPoint(mb.South, mb.Est)]]

<FONT Color=gray>' ''Mostra la latitudine e la longitudine del punto ove si è cliccato, nonché i numeri identificativi (x, y) della tessera corrispondente a quel punto:''</font>
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
<FONT Color=gray>' ''Si usa dunque il Metodo ".AddPolygon()", per disegnare sulla "MapView" il poligono, e gli si passa il vettore bidimensionale "mmpp[][]":''</font>
.Map.AddShape("polygon").<FONT Color=red>AddPolygon</font>("polygon", <FONT Color=darkorange>mmpp</font>, Color.Red, 1, Line.DashDot)
.Refresh()
End With

End