Android Question (Solved) B4XRadioButton inside xCustomListView

aeric · Apr 26, 2021

How do I capture the index for B4XRadioButton_Checked inside xCustomListView?
I got an error:
java.lang.ClassCastException: b4j.example.b4xradiobutton cannot be cast to javafx.scene.Node

B4X:

Private Sub B4XRadioButton3_Checked
    Dim Index As Int = CLV.GetItemFromView(Sender)
    Dim pnl As B4XView = CLV.GetPanel(Index)
    Dim Sel As B4XView = pnl.GetView(0)
    For Each v As B4XView In CLV.AsView.GetAllViewsRecursive
        If v Is B4XRadioButton And v.Tag <> Sel.Tag Then
            v.Checked = False
        End If
    Next
    Log(pnl)
    Log(Index)
End Sub

Sample project attached.

Edit: Sorry, I wrongly upload B4J project. Please move to B4J forum. Thanks.

mangojack · Apr 26, 2021

[B4X] How to get <custom view here> from <CLV or any other container>

This is a common question and for a good reason. Custom views classes are not views by themselves. The views tree only holds views. This means that this code cannot work: Dim B4XFloatTextField1 As B4XFloatTextField = CLV.GetPanel(x).GetView(y) The actual view that is added to the views tree...

www.b4x.com

aeric · Apr 26, 2021

mangojack said:
[B4X] How to get <custom view here> from <CLV or any other container>

This is a common question and for a good reason. Custom views classes are not views by themselves. The views tree only holds views. This means that this code cannot work: Dim B4XFloatTextField1 As B4XFloatTextField = CLV.GetPanel(x).GetView(y) The actual view that is added to the views tree...

www.b4x.com

I understand how to get the index of a panel but I don't understand how to get the Tag of a B4XRadioButton when clicked.
What I want to achieve is to uncheck all the B4XRadioButtons inside a CustomListView except the one I just selected.
This is easy if the B4XRadioButtons are on the same pane/panel.

aeric · Apr 26, 2021

I got it! I didn't assign a value to the B4XRadioButton's Tag when creating the CustomListView's item.

Mahares · Apr 26, 2021

aeric said:
I didn't assign a value to the B4XRadioButton's Tag when creating the CustomListView's item

You don't need to.

aeric · Apr 26, 2021

Mahares said:
You don't need to.

Do you mind to share your code (without setting value to Tag)?

Mahares · Apr 26, 2021

aeric said:
Do you mind to share your code (without setting value to Tag)?

I need to see your corrected code for this sub to make sure I know what I am talking about:
Private Sub B4XRadioButton3_Checked

aeric · Apr 26, 2021

B4X:

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
    B4XPages.SetTitle(Me, "B4XRadioButton Example")
    For i = 0 To 5
        CLV.Add(CreateItem (i), i)
    Next
End Sub

Sub CreateItem (Index As Int) As B4XView
    Dim P As B4XView = xui.CreatePanel("")
    p.SetLayoutAnimated(0, 0, 0, CLV.AsView.Width, 160dip)
    p.LoadLayout("Item")
    B4XRadioButton3.Tag = Index ' <-- I need to assign value to Tag
    Label1.Text = "Item " & (Index + 1)
    Return P
End Sub

Private Sub B4XRadioButton3_Checked
    Dim rb As B4XRadioButton = Sender
    For Each v As B4XView In CLV.AsView.GetAllViewsRecursive
        If v.Tag Is B4XRadioButton Then
            Dim s As B4XRadioButton = v.Tag
            Log("s.Tag=" & s.Tag & " | rb.Tag=" & rb.Tag)
            If s.Tag <> rb.Tag Then
                s.Checked = False
            End If
        End If
    Next
    Log(rb.Tag)
End Sub

Mahares · Apr 26, 2021

aeric said:
Do you mind to share your code (without setting value to Tag)?

Here is my code without having to assign tags to B4XRadioButton3

B4X:

Private Sub B4XRadioButton3_Checked 
    Dim r As B4XRadioButton = Sender        
    'Below code, iterate thru all X4XRadio buttons and uncheck all in clv except the one that is checked:
    Dim ItemIndex As Int = CLV.GetItemFromView(r.mBase)
    For i = 0 To CLV.Size - 1
        Dim p As B4XView = CLV.GetPanel(i)
        If i <> ItemIndex  Then  
            Dim Sel As B4XView = p.GetView(0)
            For Each vv As B4XView In Sel.GetAllViewsRecursive
                If vv.Tag Is B4XRadioButton Then
                    Dim v As B4XRadioButton =vv.Tag
                    v.Checked = False
                End If
            Next
        End If
    Next    
End Sub

You can eliminate this line from your CreateItem sub:
B4XRadioButton3.Tag = Index

aeric · Apr 27, 2021

Mahares said:

Here is my code without having to assign tags to B4XRadioButton3

B4X:

Private Sub B4XRadioButton3_Checked
    Dim r As B4XRadioButton = Sender       
    'Below code, iterate thru all X4XRadio buttons and uncheck all in clv except the one that is checked:
    Dim ItemIndex As Int = CLV.GetItemFromView(r.mBase)
    For i = 0 To CLV.Size - 1
        Dim p As B4XView = CLV.GetPanel(i)
        If i <> ItemIndex  Then 
            Dim Sel As B4XView = p.GetView(0)
            For Each vv As B4XView In Sel.GetAllViewsRecursive
                If vv.Tag Is B4XRadioButton Then
                    Dim v As B4XRadioButton =vv.Tag
                    v.Checked = False
                End If
            Next
        End If
    Next   
End Sub

You can eliminate this line from your CreateItem sub:
B4XRadioButton3.Tag = Index

I also want return the value of selected B4XRadioButton.

Android Question (Solved) B4XRadioButton inside xCustomListView

aeric

Expert

Attachments

mangojack

Expert

[B4X] How to get <custom view here> from <CLV or any other container>

aeric

Expert

[B4X] How to get <custom view here> from <CLV or any other container>

aeric

Expert

Mahares

Expert

aeric

Expert

Mahares

Expert

aeric

Expert

Attachments

Mahares

Expert

aeric

Expert

Similar Threads

Android Question (Solved) B4XRadioButton inside xCustomListView

Expert

Attachments

Expert

Expert

Expert

Expert

Expert

Expert

Expert

Attachments

Expert

Expert

Similar Threads

Privacy & Transparency

Privacy & Transparency