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.
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.
B4X:
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