HI
How to change the location on the map?
lat lon at edit taxt not change in map.
Please help me!!
sorry I am bad English.
regard.
How to change the location on the map?
lat lon at edit taxt not change in map.
Please help me!!
sorry I am bad English.
regard.
B4X:
Sub MapFragment1_Ready
Log("MapFragment1_Ready")
GoogleMap1 = MapFragment1.GetMap
If GoogleMap1.IsInitialized = False Then
ToastMessageShow("Error initializing map.", True)
Else
Dim CircleOptions1 As CircleOptions
Dim CircleOptions2 As CircleOptions
CircleOptions1.Initialize
CircleOptions2.Initialize
CircleOptions2.Center2(Latitude1.Text,Longtitude1.Text).FillColor(Colors.ARGB(128, 192, 0,0)).Radius(500).StrokeColor(Colors.Black).StrokeWidth(2)
CircleOptions1.Center2(Latitude2.Text,Longtitude2.Text).FillColor(Colors.ARGB(128, 192, 0, 0)).Radius(500).StrokeColor(Colors.Black).StrokeWidth(2)
Dim Coords() As Double=Array As Double(Latitude1.Text, Longtitude1.Text, Latitude2.Text, Longtitude2.Text)
Dim i As Int
For i=0 To Coords.Length-2 Step 2
Dim Marker1 As Marker
Marker1=GoogleMap1.AddMarker(Coords(i), Coords(i+1), "Marker #"&(i/2))
Marker1.Draggable=True
Next
Dim Circle1 As Circle=GoogleMapsExtras1.AddCircle(GoogleMap1, CircleOptions1)
Dim Circle2 As Circle=GoogleMapsExtras1.AddCircle(GoogleMap1, CircleOptions2)
Dim CameraPosition1 As CameraPosition
CameraPosition1.Initialize(13.964576,100.5902026, 14)
GoogleMap1.AnimateCamera(CameraPosition1)
End If
End Sub