Android Question ClvExpanded with clv in second panel

ProjectGroup19 said:

Greetings Everyone!!

From this example,

[B4X] CLVExpandable - Allows expanding or collapsing xCustomListView items

This class replaces the custom CustomListView module (https://www.b4x.com/android/forum/threads/b4x-xui-expandable-list-based-on-xcustomlistview.86449/). It works with the standard xCustomListView library. It is compatible with B4A, B4i and B4J. Instructions: An expandable item layout should...

www.b4x.com

I want to do something like this;
View attachment 112198
The Second panel contains a customlistview.

How do I add items to the customlistview for each row?


Thanks in advance.

Click to expand...

Sub CustonListView1_VisibleRangeChanged (FirstIndex As Int, LastIndex As Int)
    Dim ExtraSize As Int = 25 'Add 25 items at a time, this can be changed to suite your requirements
    For i = Max(0, FirstIndex - ExtraSize) To Min(LastIndex + ExtraSize, CLVList.Size - 1) 'Loop for adding/removing your items layout to or from the list
        Dim Pnl As B4XView = CLVList.GetPanel(i) 'Declare a new B4XView
        If i > FirstIndex - ExtraSize And i < LastIndex + ExtraSize Then 'Add a new item to the list
            If Pnl.NumberOfViews = 0 Then 'Add items to the list
                Pnl.LoadLayout("ItemInfo") ' you layout item
                lblCategoryTitle.Text = "CATEGORY"
                For i = 1 To 4
                     CustonListView2. AddTextItem("TESTE"&i,null)
                Next
            End If
        Else 'Remove items from the list
            If Pnl.NumberOfViews > 0 Then
                Pnl.RemoveAllViews 'Remove none visible item from the main xCLV layout
            End If
        End If
    Next
End Sub

Lucas Siqueira said:

will add in the same way that you fill in the lblCategoryTitle fields ...
I always use VisibleRangeChanged in the clv

B4X:

Sub CustonListView1_VisibleRangeChanged (FirstIndex As Int, LastIndex As Int)
    Dim ExtraSize As Int = 25 'Add 25 items at a time, this can be changed to suite your requirements
    For i = Max(0, FirstIndex - ExtraSize) To Min(LastIndex + ExtraSize, CLVList.Size - 1) 'Loop for adding/removing your items layout to or from the list
        Dim Pnl As B4XView = CLVList.GetPanel(i) 'Declare a new B4XView
        If i > FirstIndex - ExtraSize And i < LastIndex + ExtraSize Then 'Add a new item to the list
            If Pnl.NumberOfViews = 0 Then 'Add items to the list
                Pnl.LoadLayout("ItemInfo") ' you layout item
                lblCategoryTitle.Text = "CATEGORY"
                For i = 1 To 4
                     CustonListView2. AddTextItem("TESTE"&i,null)
                Next
            End If
        Else 'Remove items from the list
            If Pnl.NumberOfViews > 0 Then
                Pnl.RemoveAllViews 'Remove none visible item from the main xCLV layout
            End If
        End If
    Next
End Sub

Click to expand...