M mauro vicamini Active Member Licensed User Longtime User Jul 18, 2015 #1 It seems that the zoom does't work. Try this: B4X: Private Sub AddMap gmap.Initialize("gmap", ApiKey) Panel1.AddView(gmap, 0, 0, 100%x, 100%y) gmap.MapType = gmap.MAP_TYPE_TERRAIN gmap.GetUiSettings.CompassEnabled = True gmap.GetUiSettings.MyLocationButtonEnabled = True gmap.GetUiSettings.ZoomGesturesEnabled = True gmap.CameraPosition.Initialize(45,9,16) End Sub It always stay at zoom level 2. If I'm wrong, pls post me some working example code for zooming at level 16 or more. Thanks
It seems that the zoom does't work. Try this: B4X: Private Sub AddMap gmap.Initialize("gmap", ApiKey) Panel1.AddView(gmap, 0, 0, 100%x, 100%y) gmap.MapType = gmap.MAP_TYPE_TERRAIN gmap.GetUiSettings.CompassEnabled = True gmap.GetUiSettings.MyLocationButtonEnabled = True gmap.GetUiSettings.ZoomGesturesEnabled = True gmap.CameraPosition.Initialize(45,9,16) End Sub It always stay at zoom level 2. If I'm wrong, pls post me some working example code for zooming at level 16 or more. Thanks
Erel B4X founder Staff member Licensed User Longtime User Jul 19, 2015 #2 Moved to the questions forum. The correct way to change the camera position: B4X: Dim c As CameraPosition c.Initialize2(32, 35, 10, 315, 45) gmap.AnimateCamera(c) Upvote 0
Moved to the questions forum. The correct way to change the camera position: B4X: Dim c As CameraPosition c.Initialize2(32, 35, 10, 315, 45) gmap.AnimateCamera(c)