Android Tutorial Expandable list based on CustomListView

Alberto Iglesias said:

Someone create this same expandable customlistview for B4i?

Click to expand...

Erel said:

This code will collapse open items before a new one is expanded:

B4X:

Sub ExpandItem (index As Int)
   For i = 0 To clv1.GetSize - 1
     Dim p As Panel = clv1.GetPanel(i)
     If p.Tag = True Then CollapseItem(i)
   Next
   clv1.ResizeItem(index, ExpandedHeight)
   clv1.GetPanel(index).Tag = True
   AnimatedArrow(index, 0, 180)
End Sub

Click to expand...

mohsen m said:

Not work

Click to expand...