Spanish [Solucionado] ¿Como acceder a variables publicas entre distintos B4XPages?

Sergio Castellari said:

Situación:
a) Tengo un B4XPage con una variable declarada Publica en Class Global (por ejemplo: nIDCaja)
b) Quiero acceder al contenido de nIDCaja desde otro B4XPage. ¿Como se hace?

Actualmente para poder acceder a variables entre distintos B4XPages, las declaro Publicas en el MAIN. Luego accedo a las mismas, anteponiendo "Main." al nombre de la variable y funciona.
En el tutorial de B4Xpages, indica que es fácil utilizar variables entre distintas paginas...pero no encuentro o no me doy cuenta como.
Saludos!

Click to expand...

ConfigurationPage = B4XPages.GetPage("ConfigurationPage")
ConfigurationPage.VariablePublica ="Hello, World"

Actualmente para poder acceder a variables entre distintos B4XPages, las declaro Publicas en el MAIN

Click to expand...

Sub Class_Globals
Public MyVariable as String

Click to expand...

B4XPages.MainPage.MyVariable ="Hello, World"

Click to expand...

Gabino A. de la Gala said:

He encontrado otra manera que estaba buscando, pero no acababa de encontrar.
Si la página que tiene la variable deseada la tienes declarada en la MainPage, entonces puedes hacer esto también:

B4X:

Log(B4XPages.MainPage.ConfigurationPage.VariablePublica)

Click to expand...

oparra said:

si bien
ConfigurationPage es una clase ??

Click to expand...

Gabino A. de la Gala said:

Yo lo tengo hecho asi:

B4X:

ConfigurationPage = B4XPages.GetPage("ConfigurationPage")
ConfigurationPage.VariablePublica ="Hello, World"

Click to expand...

oparra said:

o declara todas las variable en B4XMainPage

B4xMainPage



Y accedes a ellas con:

Click to expand...

oparra said:

otra opción crea una clase con variables

y la declaras en B4XMainPage como publica

y tiene acceso a ellas de todas la paginas

Click to expand...

Sergio Castellari said:

@Gabino A. de la Gala Genial!

¿ Como debo declarar a "ConfigurationPage" ?
Me refiero a: ConfigurationPage = <<<<< Como la declaraspreviamente?

se me ocurre declararla como (as CAJA) Nota: CAJA es el nombre de la Clase

Click to expand...

Sub Class_Globals
  ' La defino como publica para que pueda ser llamada directamente desde otras partes del programa.
  Public ConfigurationPage As B4XConfigurationPage
End Sub

Sub B4XPage_Created
    ConfigurationPage.Initialize
    B4XPages.AddPageAndCreate("ConfigurationPage", ConfigurationPage)
    B4XPages.SetTitle(ConfigurationPage, "Configuración")
    ' Llamo al procedimiento para cargar todos los parámetros de la configuración
    ConfigurationPage.CargarConfiguracion
    ' Pongo por defecto el usuario con el que se hizo login la última vez.
    EditUsuario.Text = ConfigurationPage.ConfigMap.GetDefault("usuario", "")

    ' Aunque, tal y como lo puse en otro post, también lo podrías hacer
    EditUsuario.Text = B4XPages.MainPage.ConfigurationPage.ConfigMap.GetDefault("usuario", "")
End Sub

Sergio Castellari said:

dejar las variables publicas realmente globales a nivel aplicación en el Main

Click to expand...

Gabino A. de la Gala said:

Así es como lo suelo hacer cuando es una página "importante" dentro de la aplicación y voy a necesitar llamarla desde diferentes puntos del programa.

B4X:

Sub Class_Globals
  ' La defino como publica para que pueda ser llamada directamente desde otras partes del programa.
  Public ConfigurationPage As B4XConfigurationPage
End Sub

Sub B4XPage_Created
    ConfigurationPage.Initialize
    B4XPages.AddPageAndCreate("ConfigurationPage", ConfigurationPage)
    B4XPages.SetTitle(ConfigurationPage, "Configuración")
    ' Llamo al procedimiento para cargar todos los parámetros de la configuración
    ConfigurationPage.CargarConfiguracion
    ' Pongo por defecto el usuario con el que se hizo login la última vez.
    EditUsuario.Text = ConfigurationPage.ConfigMap.GetDefault("usuario", "")

    ' Aunque, tal y como lo puse en otro post, también lo podrías hacer
    EditUsuario.Text = B4XPages.MainPage.ConfigurationPage.ConfigMap.GetDefault("usuario", "")
End Sub

Click to expand...

Sub Class_Globals
    Public cfgPage As Caja 'Caja es el nombre del modulo donde esta la B4Xpage (origen de la variable)'
End Sub

    cfgPage = B4XPages.GetPage("PageCaja")
    lblSaldo.Text = cfgPage.pSalFinalCaja

José J. Aguilar said:

Con B4XPages, no sería correcto (aunque sí posible) ponerlas en Main. Lo mejor es dejarlas en B4XMainPage, de esta forma, el proyecto puede ser multiplataforma en caso de necesitarlo.
La otra opción es lo que te indica oparra, bien una clase o bien un "code module".

saludos,

Click to expand...

Sergio Castellari said:

ya que seguramente voy a tener centenas de variables publicas que quiero disponer en distintas B4XPages

Click to expand...