Spanish SOLUCIONADO selectedChange de un B4XRadioButton creado por código

[Ender1969]

Buenas a todos.
He creado en un formulario un panel de B4XRadioButton según un Map pasado a una función, se genera según los elementos del Map pasados.

Los radio se crean bien y funcionan, pero no consigo acceder a selectedChange cuando se pulsa uno de los radio buttons.

Pongo parte del código de creación y como he llamado al sub (seguro que esto está mal, pero no se como crear un sub que sirva para todos los radio buttons generados)

¿Alguna sugerencia?

Gracias de antemano.

    Dim BotonTop As Double = 10
    
    For Each opciones As String In listaopciones.Keys
    
        Dim xpnl_RadioButton As B4XView = xui.CreatePanel("")
        xpnl_RadioButton.SetLayoutAnimated(0, 0, 0, 500dip, 25dip)

        Dim m_Properties As Map
        m_Properties.Initialize
        m_Properties.Put("Value",False)
        m_Properties.Put("OnColor",0xFF000000)
        m_Properties.Put("OffColor",0xFFCACACA)
    
        Dim lbl As Label
        lbl.Initialize("")
        
        Dim rb1 As B4XRadioButton
        rb1.Initialize(Me,"rb1")
        rb1.DesignerCreateView(xpnl_RadioButton,lbl,m_Properties)
        rb1.Text = opciones
        rb1.Tag = listaopciones.GetValueAt(opciones)
        
        Dim PR As B4XView = PaneRadio
        PR.AddView(xpnl_RadioButton,15, BotonTop, 500dip,25dip)

        BotonTop = BotonTop + 30
    Next






Private Sub rb1_SelectedChange(Selected As Boolean)
    
End Sub

 

[josejad]

Hola:

Siempre es más fácil si subes un proyecto para probar.

¿Qué es PaneRadio?

 

[Ender1969]

Hola:

Siempre es más fácil si subes un proyecto para probar.

¿Qué es PaneRadio?

View attachment 158628

PaneRadio es un Pane

Dim paneRadio As pane
es un panel contenedor, para poner los paneles de cada radiobutton

 

[josejad]

Y cómo defines ListaOpciones?

 

[josejad]

Según Erel, la forma correcta de añadir elementos por código sería esta

[B4X] I need 100 <custom view here>s. How to add programmatically?

Custom views are designed to be added with the designer. It is however very simple to create a layout file with the custom view and load it multiple times. Tip: remove the call to AutoScaleAll from the designer script. Complete example: Sub Globals Private B4XSwitch1 As B4XSwitch End...

www.b4x.com

 

[Ender1969]

Y cómo defines ListaOpciones?

ListaOpciones es un Map.

Crearse se crea bien pero no se como acceder al seleccionado, es decir que lo que realmente no se como poner es

 

[Ender1969]

y solucionado, revisando el código he usado
Private Sub B4XRadioButton_Checked

en lugar de
Private Sub rb1_SelectedChange(Selected As Boolean)

Solucionado, gracias