Android Question Googlemaps ZoomtoPoints

Humberto

Active Member
Licensed User
Longtime User
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.

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 Sub

How to do in B4A ?

I could find a way yet
 
Top