Spanish Crear objetos por código en página de un TabHost

[Guillermo Sanzeri]

Hola a todos. He creado un TabHost con tres páginas, a cada uno le hice un layout y todo anda muy bien.
El tema es que me gustaría poder crear objetos (editText, boton, etc) por código en una página específica, por ejemplo la 2, y no se como referencia a esa página.

Gracias por la ayuda.

 

[Heppy]

Pues con el ejemplo que hay en http://www.b4x.com/android/forum/threads/tick-tack-toe-working-with-arrays-of-views.8506/#post-47508

For x = 0 To 2
        For y = 0 To 2
            Dim b As Button
            b.Initialize("button") 'All buttons share the same event sub
            b.TextSize = 30
            Activity.AddView(b,offsetX + x * (width + 10dip), offsetY + y * (width + 10dip), width, width)
            Buttons(x, y) = b 'store a reference to this view
        Next
    Next

Espero te sirva.

 

[Guillermo Sanzeri]

El tema es la página del TabHost.

Dim oTab As TabHost

oTab.AddTab( "Pagina 1", "Pagina01" ) ==> Pagina01.lab es un layout que hice para la página y tiene cointroles
oTab.AddTab( "Pagina 2", "Pagina02" ) ==> Igual que el anterior

El Tab carga el layout "Pagina01" y lo muestra como una tab del TabHost. En este Layout hay controles que agregue con el diseñador. Pero hay controles que quiero agregar por código al layout "Pagin01" y no se como hacerlo.

Pagina01.AddView... ==> Esto no funciona
oTab.Tab(2).addView ==> Esto no existe.

Perdón si no se me entiende soy medio complicado para explicar.

 

[Guillermo Sanzeri]

Ya lo logré. Gracias Heppy. Tu respuesta me inspiro

 

[Heppy]

Me alegro, estaba buscando una rutina que lo hacía diferente, pero no la he encontrado.

De todas formas, ¿puedes poner la solución, por si necesitamos alguna vez hacer algo así?

Saludos

 

[Guillermo Sanzeri]

El tema es así. Los Tabs del TabHost son Layouts que tenés que tener creados con el diseñador. Pero no sabía como acceder agregarle controles por código.
La manera es asi:

oTabHost.AddTab( "Titulo Tab", "Layout01" )

No podía acceder al Layout01 para agregarle algún control por código. Eso es porque se debe hacer con el "AddTab2".
La manera es asi.

Dim oPanel as Panel
Dim oBoton as Button

oBoton.Initialize( "oBoton" )
oBoton.Text = "Nuevo"
oBoton.TextColor = Colors.White
oPanel.AddView ( oBoton, 10dip , 15dip , 100dip, 40dip )

oTabHost.AddTab2( "Titulo Pagina", oPanel )

Todos los controles se crean en el Panel y luego se agrega al TabHost.

 

[klaus]

In your layout in the Designer put all views onto a Panel, lets say oPanel1.
Then

oTabHost.AddTab( "Titulo Tab", "Layout01")
oBoton.Initialize( "oBoton" )
oBoton.Text = "Nuevo"
oBoton.TextColor = Colors.White
oPanel1.AddView ( oBoton, 10dip , 15dip , 100dip, 40dip)

You need to Dim oBoton As Button in Globals.

 

[Heppy]

Muchas gracias por vuestra explicación