Android Question Reset all B4XSwitch switches in a list

[nwhitfield]

In my iOS app, which I'm porting to Android/B4X, I have a custom list view, containing panels of filter options. Each one has a text view and a switch. I can easily reset all filters to the default with this code:

 For i = 0 To userFilter.GetSize -1
   Dim p As Panel = userFilter.GetPanel(i)
   Dim s As Switch = p.GetView(0)
   s.value = false

Unfortunately, there doesn't seem to be an easy way to do the same with B4XSwitch. How can I reset the values (and, for filtering, check which ones have been set to which value)?

One alternative for the latter would be to have an array of values, updating when a switch is changed, but that still doesn't solve the reset issues; I could, I guess, just rebuild all the panels, but that seems a bit extravagant.

 

[Brandsum]

there doesn't seem to be an easy way to do the same with B4XSwitch.

Why not?

Dim s As B4XSwitch = p.GetView(0)
s.value = false

 

[nwhitfield]

That gives an error during compilation:

error: incompatible types: View cannot be converted to b4xswitch

I've also tried with this:

   Dim v As B4XView = p.GetView(0)
   Dim s As B4XSwitch = v
   s.Value = False

But that results in a run-time exception:

java.lang.RuntimeException: Field: ba not found in: anywheresoftware.b4a.BALayout

 

[Brandsum]

   Dim p As B4XPanel = userFilter.GetPanel(i)
   Dim s As B4XSwitch = p.GetView(0)
   s.value = false

 

[nwhitfield]

B4XPanel? Unless something's gone seriously weird with my libraries, that's an unknown type. (XUI 1.90, XUI Views 2.13)

 

[DonManfred]

B4XPanel? Unless something's gone seriously weird with my libraries, that's an unknown type.

i guess it is a misspelling. I think he meant B4XView.

 

[Brandsum]

B4XPanel?

Yes that will be B4XView. Sorry for the typo!

Dim p As B4XView= userFilter.GetPanel(i)
Dim s As B4XSwitch = p.GetView(0)
s.value = false

 

[nwhitfield]

Same runtime exception, field 'ba' not found, as above.

And if I add an extra level of indirection

 dim tmp as b4xview = p.getView(0)
dim s as b4xswitch = tmp

then I get the exception

java.lang.ClassCastException: anywheresoftware.b4a.BALayout cannot be cast to com.bluf.navigator.b4xswitch

I shall sleep on this; and maybe think about using checkboxes in the morning.

 

[Brandsum]

Check the index. Maybe in the label is in 0 index and b4xswitch in 1

 

[nwhitfield]

I've tried that, too - they did in fact get swapped round in the copy and paste from B4i to B4A. But that doesn't appear to be the problem, either.

If I'm dealing with a switch as the sender of an event, as I do elsewhere, that works just fine. But it seems to me that when I try to retrieve it from a parent view, it's as if it's disassembling into the component parts that make it up.

 

[DonManfred]

dim tmp as b4xview = p.getView(0)
dim s as b4xswitch = tmp

i did not used b4xswitch.
But i remember that customviews reference itself using the Tag.

worth a try

dim tmp as b4xview = p.getView(0)
dim s as b4xswitch = tmp.Tag

 

[Brandsum]

I've tried that, too - they did in fact get swapped round in the copy and paste from B4i to B4A. But that doesn't appear to be the problem, either.

If I'm dealing with a switch as the sender of an event, as I do elsewhere, that works just fine. But it seems to me that when I try to retrieve it from a parent view, it's as if it's disassembling into the component parts that make it up.

To check the index of b4xswitch run a foreach loop and print the type of all child views.

 

[nwhitfield]

i did not used b4xswitch.
But i remember that customviews reference itself using the Tag.

worth a try

dim tmp as b4xview = p.getView(0)
dim s as b4xswitch = tmp.Tag

By Jove, you've got it!

Absolutely brilliant! Thanks a million.

 

[Erel]

i did not used b4xswitch.
But i remember that customviews reference itself using the Tag.

That's the correct answer.
Note that it is a convention used in XUI Views. It is not something that is set by default to all custom views.

You can write it like this:

Dim s As B4XSwich = pnl.GetView(0).Tag