Android Question Can one access individual control(i.e Radiobutton) from panel without loosing "group" attribute?

[omo]

Purpose of using panel for radiobutton is to group those radiobuttons together, however; there are times one needs to access one radiobutton from this group for more specific coding purpose, is it possible or is there any technique one can use to reference one single radiobutton from panel without loosing that grouping attribute inherited from panel? I used pnl.Getview(0), dd.GetViewByName(pnl, "RadioButton1") or similar but were found to loose that inherited panel "grouping" attribute. Is there any other way different from above or can i get sample code on how it can be done? For example: If we load 3-radiobuttons from designer into panel (pnl), it will work as group, but once the three buttons are accessed thus:
Dim radiobutton1 as radiobutton = pnl.Getview(0)
Dim radiobutton2 as radiobutton = pnl.Getview(1)
Dim radiobutton3 as radiobutton = pnl.Getview(2)

radiobuton1, 2 and 3 will loose that panel grouping identity which render them unusable in some programming logic solution

or aside using panel to group radiobutton, is there any other ways either via Javacode or other means different from panel that will not loose inherited "group" attribute when accessed individually for further coding?

 

[Sagenut]

Dim RB as RadioButton = Panel.GetView(X)

RB will be a temporary reference to work with your original RadioButton.
You must know, looking your Views Tree, which number must be X to reference the one you want.

 

[omo]

Dim RB as RadioButton = Panel.GetView(X)

RB will be a temporary reference to work with your original RadioButton.
You must know, looking your Views Tree, which number must be X to reference the one you want.

Thank you @Sagenut; Yes, i knew this, and i worked with it; if you check my other questions posted today on B4Xradiobutton and ASradiobutton, the problem is that once you access any of the radiobutton with Panel.GetView(0) or whatever number on designer tree; it losses its "group" attribute inherited with the panel. My sample codes are there in those refrenced question-threads. If you use that method to access three radio buttons in panel for example and you loop it, you will discover that instead on selecting one in a group of three, all groups in the loop will loose one selection per group. I also went ahead using refrencing via designerscript i.e dd.GetViewByName(pnl, "ASRadioButton1"), but to no avail (same problem). That is why i am asking if there is any other way of achieving this. I have modified that question for more clearity

 

[Sagenut]

I am not in front of PC so I cannot make tests.
Sorry if I misunderstood the question.

 

[Sagenut]

Anyway make clear if you are working with RadioButton or with B4XRadioButton.
B4XRadioButton should be a CustomView, so to real view is stored in the Tag property.
Maybe try

Dim RB as B4XRadioButton = Panel.GetView(X).Tag

 

[omo]

I am not in front of PC so I cannot make tests.
Sorry if I misunderstood the question.

No, no, you never misunderstood it, your response was very very OK and appreciate. It is your response that made me modify that question for more clarity. Thank you

 

[omo]

Anyway make clear if you are working with RadioButton or with B4XRadioButton.
B4XRadioButton should be a CustomView, so to real view is stored in the Tag property.
Maybe try

Dim RB as B4XRadioButton = Panel.GetView(X).Tag

I also tried to end with ".tag", in some cases where ".tag" was permitted, in some other scinerio; i ended with ".mbase or .base"; where these work or reference control itself, they still loose grouping identity of the panel

 

[sumairtariq212]

RB will be a temporary reference to work with your original RadioButton

 

[William Lancee]

It is easy enough to roll your own radio button action and put all of them into a BBCodeView.

Sub Class_Globals
    Private Root As B4XView
    Private xui As XUI
    Private BBCodeView1 As BBCodeView
    Private textEngine1 As BCTextEngine
    Private allOptions As List
    Private busy As Boolean
End Sub

Public Sub Initialize
    allOptions.Initialize
End Sub

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Dim targetPanel As B4XView = xui.CreatePanel("")     'In case there is other stuff on the page
    Root.AddView(targetPanel, 0, 0, Root.Width, Root.Height)
    textEngine1.Initialize(targetPanel)
    targetPanel.LoadLayout("MainPage")
    BBCodeView1.TextEngine = textEngine1
   
    'Three groups of four radio buttons
    Dim content As StringBuilder: content.Initialize
    Dim texts(4) As String = Array As String("Option 1", $"Line 1${CRLF}Line 2${CRLF}Line 3${CRLF}Line 4${CRLF}Line 5"$, "Option 3", "Option 4")
    For i = 0 To 2
        For j = 0 To 3        'j is button #
            Dim rb As RadioButton
            rb.initialize("RadioBtns")
            BBCodeView1.Views.Put("rb_" & i & "_" & j, rb)
            rb.Tag = Array As Int(i, j)
            content.Append($"[View=rb_${i}_${j} Vertical=3/]"$).Append(CRLF).Append($"[Indent=1]${texts(j)}[Indent=0]"$).Append(CRLF)
            allOptions.Add(rb)
        Next
    Next
    BBCodeView1.Text = content.toString
End Sub

Private Sub RadioBtns_SelectedChange(Selected As Boolean)
    If busy Then Return
    Dim rbx As RadioButton = Sender
    Dim which() As Int = rbx.tag
    If rbx.As(B4XView).Checked Then
        busy = True
        For Each rb As B4XView In allOptions
            Dim wh() As Int = rb.Tag
            If wh(0) = which(0) And wh(1)<>which(1) Then rb.Checked = False
        Next
        busy = False
    End If
End Sub

 

[omo]

It is easy enough to roll your own radio button action and put all of them into a BBCodeView.

Sub Class_Globals
    Private Root As B4XView
    Private xui As XUI
    Private BBCodeView1 As BBCodeView
    Private textEngine1 As BCTextEngine
    Private allOptions As List
    Private busy As Boolean
End Sub

Public Sub Initialize
    allOptions.Initialize
End Sub

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Dim targetPanel As B4XView = xui.CreatePanel("")     'In case there is other stuff on the page
    Root.AddView(targetPanel, 0, 0, Root.Width, Root.Height)
    textEngine1.Initialize(targetPanel)
    targetPanel.LoadLayout("MainPage")
    BBCodeView1.TextEngine = textEngine1
 
    'Three groups of four radio buttons
    Dim content As StringBuilder: content.Initialize
    Dim texts(4) As String = Array As String("Option 1", $"Line 1${CRLF}Line 2${CRLF}Line 3${CRLF}Line 4${CRLF}Line 5"$, "Option 3", "Option 4")
    For i = 0 To 2
        For j = 0 To 3        'j is button #
            Dim rb As RadioButton
            rb.initialize("RadioBtns")
            BBCodeView1.Views.Put("rb_" & i & "_" & j, rb)
            rb.Tag = Array As Int(i, j)
            content.Append($"[View=rb_${i}_${j} Vertical=3/]"$).Append(CRLF).Append($"[Indent=1]${texts(j)}[Indent=0]"$).Append(CRLF)
            allOptions.Add(rb)
        Next
    Next
    BBCodeView1.Text = content.toString
End Sub

Private Sub RadioBtns_SelectedChange(Selected As Boolean)
    If busy Then Return
    Dim rbx As RadioButton = Sender
    Dim which() As Int = rbx.tag
    If rbx.As(B4XView).Checked Then
        busy = True
        For Each rb As B4XView In allOptions
            Dim wh() As Int = rb.Tag
            If wh(0) = which(0) And wh(1)<>which(1) Then rb.Checked = False
        Next
        busy = False
    End If
End Sub

View attachment 140960

Whaoo! @William Lancee, thank you so much. I have never thought of it this way, neither will my mind even go into this direction. I have not implemented it yet, but merely studying your code snippet, I can understand your trick and I should be able to apply the logic to B4xradiobutton or AS_radiobutton. Thank you so much, once I implement it correctly, I will come here to put solved
Regards

 

[teddybear]

Dim radiobutton1 as radiobutton = pnl.Getview(0)
Dim radiobutton2 as radiobutton = pnl.Getview(1)
Dim radiobutton3 as radiobutton = pnl.Getview(2)

radiobuton1, 2 and 3 will loose that panel grouping identity which render them unusable in some programming logic solution

or aside using panel to group radiobutton, is there any other ways either via Javacode or other means different from panel that will not loose inherited "group" attribute when accessed individually for further coding?

Before defining these radiobuttons，you may give a tag to them of the panel first

    For i= 0 To Pnl.NumberOfViews -1
        PnlGetView(i).Tag = "Pnl"
    Next
    Dim radiobutton1 as radiobutton = pnl.Getview(0)
    Dim radiobutton2 as radiobutton = pnl.Getview(1)
    Dim radiobutton3 as radiobutton = pnl.Getview(2)

 

[omo]

Before defining these radiobuttons，you may give a tag to them of the panel first

    For i= 0 To Pnl.NumberOfViews -1
        PnlGetView(i).Tag = "Pnl"
    Next
    Dim radiobutton1 as radiobutton = pnl.Getview(0)
    Dim radiobutton2 as radiobutton = pnl.Getview(1)
    Dim radiobutton3 as radiobutton = pnl.Getview(2)

Ok, I have not tried it out in this way too. Thank you, I will check it out too

 

[sumairtariq212]

Before defining these radiobuttons，you may give a tag to them of the panel first

    For i= 0 To Pnl.NumberOfViews -1
        PnlGetView(i).Tag = "Pnl"
    Next
    Dim radiobutton1 as radiobutton = pnl.Getview(0)
    Dim radiobutton2 as radiobutton = pnl.Getview(1)
    Dim radiobutton3 as radiobutton = pnl.Getview(2)

ok i Tried it

 

[omo]

Before defining these radiobuttons，you may give a tag to them of the panel first

    For i= 0 To Pnl.NumberOfViews -1
        PnlGetView(i).Tag = "Pnl"
    Next
    Dim radiobutton1 as radiobutton = pnl.Getview(0)
    Dim radiobutton2 as radiobutton = pnl.Getview(1)
    Dim radiobutton3 as radiobutton = pnl.Getview(2)

I tried this but i was getting error, properbly because i didnt do it well. "PnlGetView" is declared as what? B4xview ? I like to see what logical solution this your approach will offer. Please, I wouldn't mind if i can get simple sample code that demostrates this your approach for 2/3 radiobuttons when you get spare time. @William Lancee solution already worked and that of @Erel's solution on another thread, but i like to see this your solution possibility too so i can decide on approach to use at different time

 

[teddybear]

I tried this but i was getting error, properbly because i didnt do it well. "PnlGetView" is declared as what? B4xview ? I like to see what logical solution this your approach will offer. Please, I wouldn't mind if i can get simple sample code that demostrates this your approach for 2/3 radiobuttons when you get spare time. @William Lancee solution already worked and that of @Erel's solution on another thread, but i like to see this your solution possibility too so i can decide on approach to use at different time

The sample is attached.

 

[omo]

The sample is attached.

Thank you once again for this. I need this code to be in a loop before i can know if it works or not because only one must be selected in group of three. I copied important segment of code to B4xpages and put it on a loop after modifying it like this:

For i = 1 To 4  'number of three groups four times
        
        pnl  = xui.CreatePanel("")
        pnl.SetLayoutAnimated(0, 0, 0, Root.Width, 200dip)
    
        pnl.LoadLayout("RadioButtons")
        
        For k = 0 To  pnl.NumberOfViews -1
            pnl.GetView(k).Tag = "Pnl" & i  ' if i remove & i, i will pnl logged in all 4 x 3 loop          '
       Next
      
        rb11  = pnl.GetView(0)
        rb21  = pnl.GetView(1)
        rb31 = pnl.GetView(2)
        Log(rb11.Tag)
        Log(rb21.Tag)
        Log(rb31.Tag)
next

As log, i got:
Pnl1
Pnl1
Pnl1
Pnl2
Pnl2
Pnl2
Pnl3
Pnl3
Pnl3
Pnl4
Pnl4
Pnl4

NOTE: I applied this loop to B4xradiobutton instead, all 4 x 3 radiobuttons are being selected. I tried to apply loop to your sample, but couldnt get it to work. I will like you to apply loop i.e For 1 to 4, so we can have three group together in four ways to know if your logic will retain one in each group. Thanks

 

[omo]

It is easy enough to roll your own radio button action and put all of them into a BBCodeView.

Sub Class_Globals
    Private Root As B4XView
    Private xui As XUI
    Private BBCodeView1 As BBCodeView
    Private textEngine1 As BCTextEngine
    Private allOptions As List
    Private busy As Boolean
End Sub

Public Sub Initialize
    allOptions.Initialize
End Sub

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Dim targetPanel As B4XView = xui.CreatePanel("")     'In case there is other stuff on the page
    Root.AddView(targetPanel, 0, 0, Root.Width, Root.Height)
    textEngine1.Initialize(targetPanel)
    targetPanel.LoadLayout("MainPage")
    BBCodeView1.TextEngine = textEngine1
  
    'Three groups of four radio buttons
    Dim content As StringBuilder: content.Initialize
    Dim texts(4) As String = Array As String("Option 1", $"Line 1${CRLF}Line 2${CRLF}Line 3${CRLF}Line 4${CRLF}Line 5"$, "Option 3", "Option 4")
    For i = 0 To 2
        For j = 0 To 3        'j is button #
            Dim rb As RadioButton
            rb.initialize("RadioBtns")
            BBCodeView1.Views.Put("rb_" & i & "_" & j, rb)
            rb.Tag = Array As Int(i, j)
            content.Append($"[View=rb_${i}_${j} Vertical=3/]"$).Append(CRLF).Append($"[Indent=1]${texts(j)}[Indent=0]"$).Append(CRLF)
            allOptions.Add(rb)
        Next
    Next
    BBCodeView1.Text = content.toString
End Sub

Private Sub RadioBtns_SelectedChange(Selected As Boolean)
    If busy Then Return
    Dim rbx As RadioButton = Sender
    Dim which() As Int = rbx.tag
    If rbx.As(B4XView).Checked Then
        busy = True
        For Each rb As B4XView In allOptions
            Dim wh() As Int = rb.Tag
            If wh(0) = which(0) And wh(1)<>which(1) Then rb.Checked = False
        Next
        busy = False
    End If
End Sub

View attachment 140960

I tried this your solution, it worked well on PC with B4J, but it doesn't display radiobutton in android phones. I tried it on two android phones, radiobutton didnt show, but all other texts showed. Below is what it displayed on phone and PC:

I dont know what cause radiobutton not showing up on phones. I tested it on two different phones. Will this solution also work with other b4xradiobutton or AS_Radiobutton? What of this your solution possibility of working in B4I too, i dont have means of testing that now? Thanks

 

[William Lancee]

In B4A..
1. the code generated button doesn't have any dimensions.
2. the size values need to be in dips
3. the event name is different

In B4i
1. There is no RadioButton. You could use B4XRadioButton, but that can't be easily created in code.
I suggest the following... Make a pseudo RadioButton from a Label with two FontAwesome Icons as text
When clicked, switch the two icons.

The code below works for both B4J and B4A, and I don't see why it wouldn't work in B4i (not tested)

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Dim targetPanel As B4XView = xui.CreatePanel("")     'In case there is other stuff on the page
    Root.AddView(targetPanel, 0, 0, Root.Width, Root.Height) 
    textEngine1.Initialize(targetPanel)
    targetPanel.LoadLayout("MainPage")
    BBCodeView1.TextEngine = textEngine1
    Dim voffset As Int = 6dip
    Dim w As Int = 25dip
    
    Dim content As StringBuilder: content.Initialize
    Dim texts(4) As String = Array As String("Option 1", $"Line 1${CRLF}Line 2${CRLF}Line 3${CRLF}Line 4${CRLF}Line 5"$, "Option 3", "Option 4")
    For i = 0 To 2
        For j = 0 To 3        'j is button #
            Dim rb As Label
            rb.initialize("PseudoBtn")
            Dim rbx As B4XView = rb
            rbx.SetLayoutAnimated(0, 0, 0, w, w)
            rbx.Font = xui.CreateFontAwesome(18)
            rbx.Text = Chr(0xF10C)
            rbx.Tag = i
            BBCodeView1.Views.Put("rb_" & i & "_" & j, rbx)
            content.Append($"[View=rb_${i}_${j} Vertical=${voffset}/]"$).Append($"[Indent=1]${texts(j)}[Indent=0]"$).Append(CRLF)
            allOptions.Add(rbx)
        Next
    Next
    BBCodeView1.Text = content.toString
End Sub

#If B4J
Private Sub PseudoBtn_MouseClicked(Ev As MouseEvent)
    Dim lbl As B4XView = Sender
    btnClick(lbl)
End Sub
#Else
Private Sub PseudoBtn_Click
    Dim lbl As B4XView = Sender
    btnClick(lbl)
End Sub
#Else If B4i
#End If

Private Sub btnClick(lbl As B4XView)
    Dim group As Int = lbl.tag
    If lbl.Text = Chr(0xF10C) Then
        For Each rb As B4XView In allOptions
            Dim grp As Int = rb.Tag
            If grp = group Then rb.Text = Chr(0xF10C)
        Next
        lbl.Text = Chr(0xF192)
    Else
        lbl.Text = Chr(0xF10C)
    End If
End Sub

 

[teddybear]

Thank you once again for this. I need this code to be in a loop before i can know if it works or not because only one must be selected in group of three. I copied important segment of code to B4xpages and put it on a loop after modifying it like this:

For i = 1 To 4  'number of three groups four times
       
        pnl  = xui.CreatePanel("")
        pnl.SetLayoutAnimated(0, 0, 0, Root.Width, 200dip)
   
        pnl.LoadLayout("RadioButtons")
       
        For k = 0 To  pnl.NumberOfViews -1
            pnl.GetView(k).Tag = "Pnl" & i  ' if i remove & i, i will pnl logged in all 4 x 3 loop          '
       Next
     
        rb11  = pnl.GetView(0)
        rb21  = pnl.GetView(1)
        rb31 = pnl.GetView(2)
        Log(rb11.Tag)
        Log(rb21.Tag)
        Log(rb31.Tag)
next

As log, i got:
Pnl1
Pnl1
Pnl1
Pnl2
Pnl2
Pnl2
Pnl3
Pnl3
Pnl3
Pnl4
Pnl4
Pnl4

NOTE: I applied this loop to B4xradiobutton instead, all 4 x 3 radiobuttons are being selected. I tried to apply loop to your sample, but couldnt get it to work. I will like you to apply loop i.e For 1 to 4, so we can have three group together in four ways to know if your logic will retain one in each group. Thanks

Could you post a small project?

 

[omo]

In B4A..
1. the code generated button doesn't have any dimensions.
2. the size values need to be in dips
3. the event name is different

In B4i
1. There is no RadioButton. You could use B4XRadioButton, but that can't be easily created in code.
I suggest the following... Make a pseudo RadioButton from a Label with two FontAwesome Icons as text
When clicked, switch the two icons.

The code below works for both B4J and B4A, and I don't see why it wouldn't work in B4i (not tested)

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Dim targetPanel As B4XView = xui.CreatePanel("")     'In case there is other stuff on the page
    Root.AddView(targetPanel, 0, 0, Root.Width, Root.Height)
    textEngine1.Initialize(targetPanel)
    targetPanel.LoadLayout("MainPage")
    BBCodeView1.TextEngine = textEngine1
    Dim voffset As Int = 6dip
    Dim w As Int = 25dip
   
    Dim content As StringBuilder: content.Initialize
    Dim texts(4) As String = Array As String("Option 1", $"Line 1${CRLF}Line 2${CRLF}Line 3${CRLF}Line 4${CRLF}Line 5"$, "Option 3", "Option 4")
    For i = 0 To 2
        For j = 0 To 3        'j is button #
            Dim rb As Label
            rb.initialize("PseudoBtn")
            Dim rbx As B4XView = rb
            rbx.SetLayoutAnimated(0, 0, 0, w, w)
            rbx.Font = xui.CreateFontAwesome(18)
            rbx.Text = Chr(0xF10C)
            rbx.Tag = i
            BBCodeView1.Views.Put("rb_" & i & "_" & j, rbx)
            content.Append($"[View=rb_${i}_${j} Vertical=${voffset}/]"$).Append($"[Indent=1]${texts(j)}[Indent=0]"$).Append(CRLF)
            allOptions.Add(rbx)
        Next
    Next
    BBCodeView1.Text = content.toString
End Sub

#If B4J
Private Sub PseudoBtn_MouseClicked(Ev As MouseEvent)
    Dim lbl As B4XView = Sender
    btnClick(lbl)
End Sub
#Else
Private Sub PseudoBtn_Click
    Dim lbl As B4XView = Sender
    btnClick(lbl)
End Sub
#Else If B4i
#End If

Private Sub btnClick(lbl As B4XView)
    Dim group As Int = lbl.tag
    If lbl.Text = Chr(0xF10C) Then
        For Each rb As B4XView In allOptions
            Dim grp As Int = rb.Tag
            If grp = group Then rb.Text = Chr(0xF10C)
        Next
        lbl.Text = Chr(0xF192)
    Else
        lbl.Text = Chr(0xF10C)
    End If
End Sub

This your new solution works flawlessly in B4J and B4A without problem and being labelic-solution derivative, i don't see reason why it wont work in B4I either. When i set rb.height and width to 25dip each, i was able to see radio button in the android version of the old solution. However, it couldnt retain one option in a group., but i prefer this your second solution since it works flawlessly as cross platform. I will see if i can add simple animation to it similar or better than that of radiobutton. Now, one more question, i was able to log grp, group and lbl.text, to know if i can get unique radiooption id to track individual option button, yes, grp was constant for each group while lbl.text is giving font awesome label, what is the unique id to program each button or should i just target side label and grp? Or should i setup another sender for integer? When i put message box and click, it fires for each button, but i need what will make me identify each button that fires so it can be easy for me to program that button