In B4I there is a method to set the zoom level of the map providing the four positions ( left up and down and right up and down)
This is the code for B4I.
How to do in B4A ?
I could find a way yet
This is the code for B4I.
B4X:
Sub Zoom ( pLat As Float, pLong As Float, pRaio As Float)
'zoom the image to see those points
Dim l1, l2, l3, l4 As LatLng
Dim xPosx1, xPosy1, xPosx2, xPosy2 As Float
xPosx1 = pLat - pRaio-119
xPosx1 = pLat - (pRaio / 111.19)
xPosx2 = pLat + (pRaio / 111.19)
xPosy1 = pLong - (pRaio / 111.19)
xPosy2 = pLong + (pRaio / 111.19)
l1.Initialize(xPosx1, xPosy1)
l2.Initialize(xPosx1, xPosy2)
l3.Initialize(xPosx2, xPosy2)
l4.Initialize(xPosx2, xPosy1)
gextra.ZoomToPoints(Array(l1, l2, l3, l4))
End SubHow to do in B4A ?
I could find a way yet