Sub MapFragment1_LongClick (mPoint As LatLng)
...
gmap.AddMarker3(mPoint.Latitude,mPoint.Longitude, "MicroArea " & Starter.numero_microarea,LoadBitmap(File.DirAssets,"flag50.png") ).InfoWindowShown = True
....
lista_punta.Add(mPoint)
If lista_punta.Size = 6 Then
DrawPolygon(lista_punta)
End If
End Sub
Sub MapFragment1_Click (Point As LatLng)
.....
Log(Point.Latitude)
Log(Point.Longitude)
.....
End Sub
Sub DrawPolygon (PointList As List)
Dim GoogleMapsExtras1 As GoogleMapsExtras
Dim polygonoptions1 As PolygonOptions
polygonoptions1.Initialize
polygonoptions1.FillColor=Colors.ARGB(150,255,255,0)
polygonoptions1.AddPoints(PointList)
polygonoptions1.StrokeColor=Colors.DarkGray
polygonoptions1.StrokeWidth=3
Dim pg As Polygon = GoogleMapsExtras1.AddPolygon(gmap, polygonoptions1)
End Sub