Hola a todos,
Estoy teniendo problemas al inicializar Google Maps en mi aplicación B4A. El siguiente código intenta obtener el mapa, pero no se inicializa correctamente a menos que use un punto de interrupción.
Sub Globals
Dim mFragment As MapFragment
Dim gmap As GoogleMap
Dim MapPanel As Panel
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("prueba4") ' Cargar el diseño que contiene el MapFragment
MapPanel.Initialize("")
Activity.AddView(MapPanel, 0, 0, 100%x, 100%y)
If mFragment.IsGooglePlayServicesAvailable = False Then
ToastMessageShow("Google Play services not available.", True)
Else
mFragment.Initialize("Map", MapPanel)
End If
End Sub
Sub Map_Ready
Log("map ready")
gmap = mFragment.GetMap
If gmap.IsInitialized = False Then
ToastMessageShow("Error initializing map.", True)
Else
'gmap.AddMarker(36, 15, "Hello!!!")
gmap.AddMarker3(36,15, "yo", LoadBitmap(File.DirAssets, "ic_person128.png"))
Dim cp As CameraPosition
cp.Initialize(36, 15, gmap.CameraPosition.Zoom)
gmap.AnimateCamera(cp)
End If
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
He probado varios enfoques, incluyendo el uso de un Timer y un Handler, pero el problema persiste. Estoy utilizando B4A, vversión 12.50.
Cualquier ayuda sería apreciada.
Estoy teniendo problemas al inicializar Google Maps en mi aplicación B4A. El siguiente código intenta obtener el mapa, pero no se inicializa correctamente a menos que use un punto de interrupción.
Sub Globals
Dim mFragment As MapFragment
Dim gmap As GoogleMap
Dim MapPanel As Panel
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("prueba4") ' Cargar el diseño que contiene el MapFragment
MapPanel.Initialize("")
Activity.AddView(MapPanel, 0, 0, 100%x, 100%y)
If mFragment.IsGooglePlayServicesAvailable = False Then
ToastMessageShow("Google Play services not available.", True)
Else
mFragment.Initialize("Map", MapPanel)
End If
End Sub
Sub Map_Ready
Log("map ready")
gmap = mFragment.GetMap
If gmap.IsInitialized = False Then
ToastMessageShow("Error initializing map.", True)
Else
'gmap.AddMarker(36, 15, "Hello!!!")
gmap.AddMarker3(36,15, "yo", LoadBitmap(File.DirAssets, "ic_person128.png"))
Dim cp As CameraPosition
cp.Initialize(36, 15, gmap.CameraPosition.Zoom)
gmap.AnimateCamera(cp)
End If
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
He probado varios enfoques, incluyendo el uso de un Timer y un Handler, pero el problema persiste. Estoy utilizando B4A, vversión 12.50.
Cualquier ayuda sería apreciada.