Sub MapInvisibilita_Ready
'Log("map ready")
gmap_Invisibilita = mFragment_Invisibilita.GetMap
If gmap_Invisibilita.IsInitialized = False Then
ToastMessageShow("Error initializing map.", True)
Else
gmap_Invisibilita.AddMarker(Latitudine_Invisibilita, Longitudine_Invisibilita, "")
Dim cp As CameraPosition
cp.Initialize(Latitudine_Invisibilita, Longitudine_Invisibilita, 15)
gmap_Invisibilita.MoveCamera(cp)
gmap_Invisibilita.MyLocationEnabled=False
'gmap.AnimateCamera(cp)
End If
End Sub
Sub MapInvisibilita_Click(Point As LatLng)
PuntoInvisibilita = Point
Impostazioni_ZoneInvisibilita_SeekBarRaggio.Enabled = True '
ToastMessageShow("Point: " & Point.Latitude & ", " & Point.Longitude,False)
gmap_Invisibilita.Clear
Dim Acc As Float = 200
Dim GoogleMapsExtras1 As GoogleMapsExtras 'https://www.b4x.com/android/forum/threads/google-maps-android-v2-tutorial.24415/page-3
Dim circle As CircleOptions
circle.Initialize
circle.Center2(Point.Latitude, Point.Longitude)
circle.Radius(Acc)
circle.StrokeWidth(2)
circle.StrokeColor(Colors.ARGB(255,15,157,88))
circle.FillColor(Colors.ARGB(50,15,157,88))
GoogleMapsExtras1.AddCircle(gmap_Invisibilita,circle)
End Sub