Android Question Expand row in CLVExpandable

[Sergey_New]

I go through the index, for example, to the last row:

CLV1.ScrollToItem(CLV1.Size-1)

How to programmatically expand a row by its index in CLVExpandable?

 

[TILogistic]

?

    CLV1.ScrollToItem(CLV1.Size-1)
   
    Dim e As ExpandableItemData = CLV1.GetValue(CLV1.Size-1)
    If e.Expanded = False Then 'check if item is expanded
        CLVExpandable1.ToggleItem(CLV1.Size-1)
    End If

 

[TILogistic]

or use new B4x

    CLV1.ScrollToItem(CLV1.Size-1)
    
    If Not(CLV1.GetValue(CLV1.Size-1).As(ExpandableItemData).Expanded) Then 'check if item is expanded
        CLVExpandable1.ToggleItem(CLV1.Size-1)
    End If

 

[Sergey_New]

It was required to add a Sleep(5) for a long list. Sleep(0) is small.

Sub ExpandToItem(index As Int)
    If CLV1.Size = 0 Then Return
    CLV1.ScrollToItem(index)
    Sleep(5)
    Dim e As ExpandableItemData = CLV1.GetValue(index)
    If e.Expanded = False Then
        CLVExpandable1.ToggleItem(index)
    End If
End Sub

Thanks!

 

[TILogistic]

?

ExpandToItem(CLV1.Size -1)
ExpandToItem(0)

Sub ExpandToItem(index As Int) 
    If index < 0 Then Return 'items is 0 to n
    CLV1.ScrollToItem(index)
    Sleep(CLV1.AnimationDuration) 'test sleep
    Dim e As ExpandableItemData = CLV1.GetValue(index)
    If e.Expanded = False Then
        CLVExpandable1.ToggleItem(index)
    End If
End Sub

 

[Sergey_New]

    Sleep(CLV1.AnimationDuration) 'test sleep

It was required to add a Sleep(5) for a long list. Sleep(0) is small.

I have CLV1.AnimationDuration=0 set
In my opinion, for all cases it is necessary:

Sleep(CLV1.AnimationDuration+5)

 

[TILogistic]

see Class CLVExpandable (mCLV.AnimationDuration)

you
CLV1.AnimationDuration=0

expander and customlistview will not have animation:

 

[Sergey_New]

I do not need animation, so for cases when it is needed, it seems to me that it will be correct:

Sleep(CLV1.AnimationDuration+5)

 

[Mahares]

This is your code:

Sub ExpandToItem(index As Int)
    If CLV1.Size = 0 Then Return
    CLV1.ScrollToItem(index)
    Sleep(5)
    Dim e As ExpandableItemData = CLV1.GetValue(index)
    If e.Expanded = False Then
        CLVExpandable1.ToggleItem(index)
    End If
End Sub

Why not simply have the below code and get the same result:

Sub ExpandToItem(index As Int)
    CLVExpandable1.ExpandItem(index)  'works to expand the given item
    Sleep(5)  
    clv1.ScrollToItem(index )
End Sub

 

[Sergey_New]

Why not simply have the below code and get the same result:

An error occurs.
It's probably right like this?:

Sub ExpandToItem(index As Int)
    clv1.ScrollToItem(index )
    Sleep(5)
    CLVExpandable1.ExpandItem(index)  'works to expand the given item
End Sub

 

[Mahares]

Have you tried to use the value to expand by instead of index. The index is abstract. You don;t usually know what is strored there. . Here it is. It works for me in B4A and B4J. You can adjust you sleep time and shuffle lines of code if it suits:

ExpandToItem("mosc")

Sub ExpandToItem(val As String)
    For i = 0 To clv1.Size -1
        Dim e As ExpandableItemData = clv1.GetValue(i)
        Dim s As String =e.Value
        If s.tolowercase.Contains(val.tolowercase) Then
            Sleep(0)
            clv1.ScrollToItem(i)
            Expandable.ExpandItem(i)
            Return
        End If
    Next
End Sub