Visualizza wikitesto di Usare il Metodo '.AddPolyLine()' di gb.map

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 <FONT Color=darkorange>mmpp</font> As New <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&#058;//mt0.google.com/vt/lyrs=s&hl=&x={x}&y={y}&z={z}")
  End With
  
 End
 
  
 Public Sub MapView1_MouseWheel()
  
 <FONT Color=gray>' ''Mostra il livello di zoom della mappa ad ogni rotazione della rotellina del mouse:''</font>
  Me.Text = "Zoom: " & CStr(MapView1.Map.Zoom)
  
 End
 
 
 Public Sub MapView1_MouseDown()
  
  Dim pt As New Point(Mouse.X, Mouse.Y)
  
 <FONT Color=gray>' ''Mostra la latitudine e la longitudine del punto ove si è cliccato:''</font>
  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
      <FONT Color=darkorange>mmpp</font>.Push(.Map.PixelToMapPointRel(pt))
      .Map.AddShape("polyline").<FONT Color=red>AddPolyLine</font>("polyline", <FONT Color=darkorange>mmpp</font>, 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 <FONT Color=darkorange>mmpp</font> As New <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&#058;//mt0.google.com/vt/lyrs=s&hl=&x={x}&y={y}&z={z}")
  End With
  
 
 End
 
  
 Public Sub MapView1_MouseWheel()
  
 <FONT Color=gray>' ''Mostra il livello di zoom della mappa ad ogni rotazione della rotellina del mouse:''</font>
  Me.Text = "Zoom: " & CStr(MapView1.Map.Zoom)
  
 End
 
 
 Public Sub MapView1_MouseDown()
  
  Dim pt As New Point(Mouse.X, Mouse.Y)
  
 <FONT Color=gray>' ''Mostra la latitudine e la longitudine del punto ove si è cliccato:''</font>
  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
 <FONT Color=gray>' ''Se gli elementi dell'array "mmpp" sono più di due, rimuove l'ultimo elemento che è stato aggiunto con la seconda riga di comando sottostante:''</font>
      If <FONT Color=darkorange>mmpp</font>.Count > 2 Then <FONT Color=darkorange>mmpp</font>.Remove(<FONT Color=darkorange>mmpp</font>.Max)
      <FONT Color=darkorange>mmpp</font>.Push(.Map.PixelToMapPointRel(pt))
 <FONT Color=gray>' ''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:''</font>
      If <FONT Color=darkorange>mmpp</font>.Count > 2 Then <FONT Color=darkorange>mmpp</font>.Push(<FONT Color=darkorange>mmpp</font>[0])
 <FONT Color=gray>' ''Disegna l'attuale poligono in base ai punti sino ad ora impostati con il mouse sulla mappa:''</font>
      .Map.AddShape("polyline").<FONT Color=red>AddPolyLine</font>("polyline", <FONT Color=darkorange>mmpp</font>, Color.Red, 1, 4)
      .Refresh()
    End With
  Endif 
     
 End