Código
Bueno pongo el código, aunque prácticamente no tiene mucho, jejej:
El problema me imagino que está en el Button1. Gracias!
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim persona As Int
Dim usuario as String
Dim EditText1, EditText2 As EditText
Dim Label1, Label2, Label3, Label4, Label5 As Label
Dim foto As ImageView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout1")
Inicializar_pantalla
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Inicializar_pantalla
Mostrar_datos (persona)
End Sub
Sub Mostrar_foto(eq As Int)
If eq=1 Then foto.Bitmap = LoadBitmap(File.DirAssets, "001.jpg")
If eq=2 Then foto.Bitmap = LoadBitmap(File.DirAssets, "002.jpg")
If eq=3 Then foto.Bitmap = LoadBitmap(File.DirAssets, "003.jpg")
If eq=4 Then foto.Bitmap = LoadBitmap(File.DirAssets, "004.jpg")
If eq=5 Then foto.Bitmap = LoadBitmap(File.DirAssets, "005.jpg")
If eq=6 Then foto.Bitmap = LoadBitmap(File.DirAssets, "006.jpg")
If eq=7 Then foto.Bitmap = LoadBitmap(File.DirAssets, "007.jpg")
If eq=8 Then foto.Bitmap = LoadBitmap(File.DirAssets, "008.jpg")
End Sub
Sub Mostrar_datos (persona As Int)
Mostrar_escudo (persona)
Mostrar_club (persona,Label5)
End Sub
Sub Mostrar_datos_menu (persona As Int)
Mostrar_foto(persona)
End Sub
Sub Button1_Click
usuario=EditText1.text
Activity.LoadLayout("menu_principal")
Mostrar_datos_menu(persona)
End Sub