y luego regreso a la primera activity (Main) y pulso en el botonSalir sale de la app con una pantalla negra, seguramente algo hago mal.... alguna idea ?
Hola Jhonn, borre los views probando para ver si era eso. Pero es igual si lo borro o no, con respecto a tu pregunta no se a que te refieres,.... tengo un activity en main y otro en en un modulo de activity, gracias por tu pronta respuesta, Jorge
Jhonn , el caso que envías como ejemplo seria, si, cuando regreso de una activity a la activity (main), quisiera salir de la app, pero lo que yo quiero es que cuando regreso a la activity (main) cargar la activity y cuando pulse el botón de salir lo haga sin una pantalla negra
Hola Edgar, si vi el link que me envió Jhonn, pero no resuelve mi problema, pego código para ver si me puedo explicar mejor.
B4X:
Sub Activity_Create(FirstTime As Boolean) 'esto es en Main'
Activity.LoadLayout("pantallainicio")
End Sub
Sub Activity_Resume
If GlobalVar.ctrlActivity == True Then 'si estoy retornando desde otra activity
GlobalVar.ctrlActivity = False
'Activity.RemoveAllViews
Activity.LoadLayout("pantallainicio")
End If
ime.HideKeyboard
End Sub
Sub BotonAgregar_Click
Activity.RemoveAllViews
GlobalVar.ctrlActivity = True
StartActivity(ListadoEventos)
End Sub
Sub BotonSalir_Click
'Activity.RemoveAllViews
Activity.Finish
End Sub
Y luego tengo un Activity Modulo (ListadoEventos) con este código
B4X:
Sub Activity_Create(FirstTime As Boolean)
'Esta activity usa dos layout pantallalista y pantallaingreso, ambas para el manejo y edición de los eventos
Activity.LoadLayout("pantallalista")
GlobalVar.ctrlActivity = False
End Sub
Sub Activity_Resume
If GlobalVar.ctrlActivity == True Then
GlobalVar.ctrlActivity = False
Activity.LoadLayout("pantallalista")
End If
End Sub
Sub BotonRegresar_Click
GlobalVar.ctrlActivity = True
Activity.RemoveAllViews
StartActivity(Main)
End Sub
Seguramente lo estoy haciendo muy mal... pero si no coloco Activity.RemoveAllViews, cuando vuelvo a entrar me muestra la segunda activity y si lo agrego funciona "bien", pero sale de la app con una pantalla negra. Espero haberme explicado bien ahora, gracias
Sub Activity_Create(FirstTime As Boolean) 'esto es en Main'
Activity.LoadLayout("pantallainicio")
End Sub
Sub Activity_Resume
If GlobalVar.ctrlActivity == True Then 'si estoy retornando desde otra activity
GlobalVar.ctrlActivity = False
End If
ime.HideKeyboard
End Sub
Sub BotonAgregar_Click
GlobalVar.ctrlActivity = True
StartActivity(ListadoEventos)
End Sub
Sub BotonSalir_Click
Activity.Finish
End Sub
Y segunda actividad:
B4X:
Sub Activity_Create(FirstTime As Boolean)
'Esta activity usa dos layout pantallalista y pantallaingreso, ambas para el manejo y edición de los eventos
Activity.LoadLayout("pantallalista")
GlobalVar.ctrlActivity = False
End Sub
Sub Activity_Resume
If GlobalVar.ctrlActivity == True Then
GlobalVar.ctrlActivity = False
Activity.LoadLayout("pantallalista")
End If
End Sub
Sub BotonRegresar_Click
GlobalVar.ctrlActivity = True
' Activity.RemoveAllViews
Activity.Finish
End Sub
Mil gracias Edgar, no había entendido que cuando se ejecuta Activity.Finish dentro de un modulo de activity, se regresa a main, que burro !!. SOLUCIONADO.