Android Tutorial [B4X] I need 100 <custom view here>s. How to add programmatically?

Custom views are designed to be added with the designer.

It is however very simple to create a layout file with the custom view and load it multiple times.

Tip: remove the call to AutoScaleAll from the designer script.

Complete example:

Sub Globals
    Private B4XSwitch1 As B4XSwitch
End Sub

Sub Activity_Create(FirstTime As Boolean)
    For i = 1 To 20
        AddSwitch(50dip, 40dip * i, i)
    Next
End Sub

Sub AddSwitch (Left As Int, Top As Int, Tag As Object) As B4XSwitch
    Activity.LoadLayout("B4XSwitch")
    B4XSwitch1.mBase.Left = Left 'B4XSwitch1 global variable will point to the last one added
    B4XSwitch1.mBase.Top = Top
    B4XSwitch1.Tag = Tag
    Return B4XSwitch1
End Sub


Sub B4XSwitch1_ValueChanged (Value As Boolean)
    Dim switch As B4XSwitch = Sender
    Log(switch.Tag)
End Sub

 

[LucaMs]

This implies (or clarifies) that loading N layouts into an Activity (or Panel) does NOT remove the Views already present.
.
[Note: the routine does not need to be a function and return a B4XSwitch].

 

[Erel]

his implies (or clarifies) that loading N layouts into an Activity (or Panel) does NOT remove the Views already present.

True. Loading a layout will never affect any other views previously loaded.

[Note: the routine does not need to be a function and return a B4XSwitch].

In a real application you will probably want to add the dynamic views to a Map or List to be able to later access them more easily.

 

[Erel]

Q: But how can I toggle all those switches when the user clicks on the activity?
A: Explanation here: [B4X] How to get <custom view here> from <CLV or any other container>

Sub Activity_Click
    For Each v As B4XView In Activity.GetAllViewsRecursive
        If v.Tag Is B4XSwitch Then
            Dim s As B4XSwitch = v.Tag
            s.Value = Not(s.Value)
        End If
    Next
End Sub

 

[Jeffrey Cameron]

Since you're disabling auto-scale, for a single custom view/view Is there an advantage to this method versus just instantiating a new instance of the class and using the view's .AddToParent method?

 

[Erel]

There is no AddToParent method in most custom views. They are designed to be configured and added with the designer.

 

[KMatle]

Maybe stupid but how is the height set internaly that the views don't overlay? As I can see only left and top is set.

 

[Erel]

The height of the view in the layout is 30dip and I set the Top property to be 40dip * i so there is a gap of 10dip between each two items.