Vuott: Creata pagina con "Il Metodo ".AddPolyLine()" del Metodo ".AddShape()" della Classe ''Map'' consente di creare linee di collegamento fra i vari punti marcatori delle coordinate. Esso si serve d..."

2024-11-15T23:00:18Z

Creata pagina con "Il Metodo ".AddPolyLine()" del Metodo ".AddShape()" della Classe ''Map'' consente di creare linee di collegamento fra i vari punti marcatori delle coordinate. Esso si serve d..."

Nuova pagina

Il Metodo ".AddPolyLine()" del Metodo ".AddShape()" della Classe ''Map'' consente di creare linee di collegamento fra i vari punti marcatori delle coordinate.

Esso si serve di un vettore di tipo ''MapPoint'' contenente due o più punti di coordinate di latitudine e longitudine.

Mostriamo di seguito un semplice esempio, nel quale cliccando con il tasto destro del mouse si individuano sulla ''MapView'' i punti delle coordinate che saranno collegati fra loro da una linea di forma frammentata.
Private MapView1 As MapView
Private mmpp As New 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}")
End With

End

Public Sub MapView1_MouseWheel()

' ''Mostra il livello di zoom della mappa ad ogni rotazione della rotellina del mouse:''
Me.Text = "Zoom: " & CStr(MapView1.Map.Zoom)

End

Public Sub MapView1_MouseDown()

Dim pt As New Point(Mouse.X, Mouse.Y)

' ''Mostra la latitudine e la longitudine del punto ove si è cliccato:''
Me.Text = "Lat. " & Format(MapView1.Map.PixelToMapPointRel(pt).Lat, "0.000000") &
" - Lon. " & Format(MapView1.Map.PixelToMapPointRel(pt).Lon, "0.000000")

End

Public Sub MapView1_MouseUp()

Dim pt As New Point(Mouse.X, Mouse.Y)

If Mouse.Right Then
With MapView1
mmpp.Push(.Map.PixelToMapPointRel(pt))
.Map.AddShape("polyline").AddPolyLine("polyline", mmpp, Color.Red, 1, 4)
.Refresh()
End With
Endif

End

===Con disegno di un poligono mediante la chiusura temporanea della sua area sulla base dei punti stabiliti di volta in volta con il mouse===
In quest'altro esempio usando il Metodo ".PolyLine()", se è stato cliccato con il tasto destro del mouse su più di due punti, viene disegnato il poligono, che ne deriva, mediante la chiusura temporanea della sua area con un segmento/lato aggiuntivo che collega l'ultimo punto immesso con il primo.
Private MapView1 As MapView
Private mmpp As New 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}")
End With

End

Public Sub MapView1_MouseWheel()

' ''Mostra il livello di zoom della mappa ad ogni rotazione della rotellina del mouse:''
Me.Text = "Zoom: " & CStr(MapView1.Map.Zoom)

End

Public Sub MapView1_MouseDown()

Dim pt As New Point(Mouse.X, Mouse.Y)

' ''Mostra la latitudine e la longitudine del punto ove si è cliccato:''
Me.Text = "Lat. " & Format(MapView1.Map.PixelToMapPointRel(pt).Lat, "0.000000") &
" - Lon. " & Format(MapView1.Map.PixelToMapPointRel(pt).Lon, "0.000000")

End

Public Sub MapView1_MouseUp()

Dim pt As New Point(Mouse.X, Mouse.Y)

If Mouse.Right Then
With MapView1
' ''Se gli elementi dell'array "mmpp" sono più di due, rimuove l'ultimo elemento che è stato aggiunto con la seconda riga di comando sottostante:''
If mmpp.Count > 2 Then mmpp.Remove(mmpp.Max)
mmpp.Push(.Map.PixelToMapPointRel(pt))
' ''Se gli elementi dell'array "mmpp" sono più di due, aggiunge un elemento con coordinate eguali al primo punto di "MapPoint" per chiudere temporaneamente il poligono:''
If mmpp.Count > 2 Then mmpp.Push(mmpp[0])
' ''Disegna l'attuale poligono in base ai punti sino ad ora impostati con il mouse sulla mappa:''
.Map.AddShape("polyline").AddPolyLine("polyline", mmpp, Color.Red, 1, 4)
.Refresh()
End With
Endif

End

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

Vuott: Creata pagina con "Il Metodo ".AddPolyLine()" del Metodo ".AddShape()" della Classe ''Map'' consente di creare linee di collegamento fra i vari punti marcatori delle coordinate. Esso si serve d..."