Android Question List of ToggleButtons

[lip]

When i do this:

        Dim tbtnList As List
        tbtnList.Initialize
        tbtnList.AddAll(Array As ToggleButton (tbtn_EnOceanTopLeft,tbtn_EnOceanTopRight,tbtn_EnOceanBottomLeft,tbtn_EnOceanBottomRight))
        For Each tbtn As ToggleButton In tbtnList
        ...
        Next

I get this on execution of the "For Each..." line:

java.lang.ClassCastException: anywheresoftware.b4a.objects.CompoundButtonWrapper$ToggleButtonWrapper cannot be cast to android.widget.ToggleButton

 

[LucaMs]

Write so and it will work:

    tbtnList.Add(tbtn_EnOceanTopLeft)
    tbtnList.Add(tbtn_EnOceanTopRight)
    tbtnList.Add(tbtn_EnOceanBottomLeft)
    tbtnList.Add(tbtn_EnOceanBottomRight)
    For Each tbtn As ToggleButton In tbtnList
        Log(tbtn.Enabled)
    Next

Why? I don't know, at the moment!

 

[mangojack]

When i do this:

        Dim tbtnList As List
        tbtnList.Initialize
        tbtnList.AddAll(Array As ToggleButton (tbtn_EnOceanTopLeft,tbtn_EnOceanTopRight,tbtn_EnOceanBottomLeft,tbtn_EnOceanBottomRight))
        For Each tbtn As ToggleButton In tbtnList
        ...
        Next

I get this on execution of the "For Each..." line:

java.lang.ClassCastException: anywheresoftware.b4a.objects.CompoundButtonWrapper$ToggleButtonWrapper cannot be cast to android.widget.ToggleButton

Should be Array As Object

    Dim tbtnList As List
    tbtnList.Initialize
    tbtnList.AddAll(Array As Object (tbtn_EnOceanTopLeft,tbtn_EnOceanTopRight,tbtn_EnOceanBottomLeft,tbtn_EnOceanBottomRight))
    For Each tbtn As ToggleButton In tbtnList
        Log(tbtn.Enabled)
    Next

 

[LucaMs]

Should be Array As Object

Yes but... why?

 

[LucaMs]

Yes but... why?

'    Dim tbtnList As List
'    tbtnList.Initialize
''    tbtnList.AddAll(Array As ToggleButton (tbtn_EnOceanTopLeft,tbtn_EnOceanTopRight,tbtn_EnOceanBottomLeft,tbtn_EnOceanBottomRight))
'    tbtnList.Add(tbtn_EnOceanTopLeft)
'    tbtnList.Add(tbtn_EnOceanTopRight)
'    tbtnList.Add(tbtn_EnOceanBottomLeft)
'    tbtnList.Add(tbtn_EnOceanBottomRight)
'    For Each tbtn As ToggleButton In tbtnList
'        Log(tbtn.Enabled)
'    Next
    
'This works!
    Dim arrToggleButtons(4) As ToggleButton
    arrToggleButtons(0) = tbtn_EnOceanTopLeft
    arrToggleButtons(1) = tbtn_EnOceanTopRight
    arrToggleButtons(2) = tbtn_EnOceanBottomLeft
    arrToggleButtons(3) = tbtn_EnOceanBottomRight
    For Each tbtn As ToggleButton In arrToggleButtons
        Log(tbtn.Enabled)
    Next

 

[lip]

Amazing! Thank you friends on B4A Forum. Not sure what I did wrong, but looks like plenty of solutions. Thanks again.