Android Question Updating Labels in CustomListView

[icakinser]

Hi everyone! I have a customlistview loaded with panels that have three labels in them.

How do I update the text of each label in the panel?

This is the method i used to populate the list view:

For k = 0 To response.Size - 1
                Dim op As alpacaPosition = response.Get(k)
                Dim p As Panel
                p.Initialize("")
                p.SetLayout(0, 0, CustomListView2.AsView.Width, 75dip)
                p.LoadLayout("Item")
                lbl_symbol.Text = op.symbol & " (" & NumberFormat2(op.currentPrice,1,2,2,True) & ")"
                'Check if there is a loss
                If IsNegative(op.unrealizedIntradayPL) Then
                    
                    lbl_profit_loss.Text = "$(" & NumberFormat2(op.unrealizedIntradayPL,1,2,2,True) & ")"
                    p.Color = xui.Color_Red
                    
                Else
                    
                    lbl_profit_loss.Text = "$" & NumberFormat2(op.unrealizedIntradayPL,1,2,2,True)
                p.Color = xui.Color_Green   
                End If   
                
                lbl_Qty.Text = NumberFormat2(op.quantity,1,2,2,True)
                CustomListView2.Add(p,op.symbol)

            Next

 

[DonManfred]

You can get the items (Panel) from a CLV with the available methods.
https://www.b4x.com/android/help/xcustomlistview.html

What have you tried so far?

For ex. What about
https://www.b4x.com/android/help/xcustomlistview.html#customlistview_getpanel

 

[icakinser]

Thanks for the links! That will help a lot At the moment I'm studying this example: https://b4x.com/android/forum/threads/b4x-xui-xcustomlistview-cross-platform-customlistview.84501/

Will post soon what I come up with.

 

[icakinser]

I can only find how to update a control if another control has been clicked If i cycle through the CustomListView is it possible to update the label I need?

 

[mangojack]

You should have at least posted your attempted effort for someone to guide / correct you as suggested above.

Sub clv1_ItemClick(Index As Int, Value As Object)   
    Dim pnl As B4XView = clv1.GetPanel(Index)
    pnl.GetView(0).Text = "abc123"   'view(0) = 1st label on panel.. refer order in Designer ViewTree for Item/Row layout
    '...........

 

[icakinser]

Sorry my Internet took a poopy. I used

For k = 0 To response.Size - 1
                Dim op As alpacaPosition = response.Get(k)
                
                Dim pnl As B4XView = clv1.GetPanel(k)
                pnl.GetView(0).Text = op.symbol & " (" & NumberFormat2(op.currentPrice,1,2,2,True) & ")"               
                'Check if there is a loss
             If IsNegative(op.unrealizedIntradayPL) Then
                    
                    pnl.GetView(1).Text = "$(" & NumberFormat2(op.unrealizedIntradayPL,1,2,2,True) & ")"
                   ' p.Color = xui.Color_Red
                    
                Else
                    pnl.GetView(1).Text = "$" & NumberFormat2(op.unrealizedIntradayPL,1,2,2,True)
                
                   'p.Color = xui.Color_Green   
               
              End If   
                
                pnl.GetView(2).Text = NumberFormat2(op.quantity,1,2,2,True)
                
            Next

Still clunky and very slow

 

[icakinser]

I think I'll just combine the IsNegative into the Sub to get rid of the jump.

 

[icakinser]

Nope doesn't work. Have to rack out another one

 

[josejad]

Still clunky and very slow

Try it in Release mode.

Not sure if I'm wrong with this, but try a Sleep(0) o Sleep(50) after update the labels to allow the UI to be refreshed.

 

[icakinser]

Here is my finished sub for those who need it:

    If first_time = True Then
    If httpCode = alpaca.HTTP_CODE_OK Then
        'addMemo("List open positions: Success! Items retrieved: " & response.Size)
        For k = 0 To response.Size - 1
            Dim op As alpacaPosition = response.Get(k)
            Dim p As Panel
            p.Initialize("")
            p.SetLayout(0, 0, CustomListView2.AsView.Width, 75dip)
            p.LoadLayout("Item")
            lbl_symbol.Text = op.symbol & " (" & NumberFormat2(op.currentPrice,1,2,2,True) & ")"
            'Check if there is a loss
            If IsNegative(op.unrealizedIntradayPL) Then
                    
                lbl_profit_loss.Text = "$(" & NumberFormat2(op.unrealizedIntradayPL,1,2,2,True) & ")"
                p.Color = xui.Color_Red
                    
            Else
                    
                lbl_profit_loss.Text = "$" & NumberFormat2(op.unrealizedIntradayPL,1,2,2,True)
                p.Color = xui.Color_Green
            
            End If
                
            lbl_Qty.Text = NumberFormat2(op.quantity,1,2,2,True)
            
            CustomListView2.Add(p,op.symbol)
Next
            alpaca.fetchAccount
        End If
    
    Else
        If httpCode = alpaca.HTTP_CODE_OK Then
        'addMemo("List open positions: Success! Items retrieved: " & response.Size)
        For k = 0 To response.Size - 1
        Dim op As alpacaPosition = response.Get(k)
        Dim pnl As B4XView = CustomListView2.GetPanel(k)
                pnl.GetView(0).Text = op.symbol & " (" & NumberFormat2(op.currentPrice,1,2,2,True) & ")"
                
        'Check if there is a loss
        If IsNegative(op.unrealizedIntradayPL) Then
                    
                    pnl.GetView(1).Text = "$(" & NumberFormat2(op.unrealizedIntradayPL,1,2,2,True) & ")"
            pnl.Color = xui.Color_Red
                    
        Else
                    
                    pnl.GetView(1).Text = "$" & NumberFormat2(op.unrealizedIntradayPL,1,2,2,True)
            pnl.Color = xui.Color_Green
            
        End If
                
                pnl.GetView(2).Text = NumberFormat2(op.quantity,1,2,2,True)
        Next
            
            
        
        End If
            
End If

You don't need to use the Click event as long as you can cycle through the index array. Runs pretty quick in release mode. But gets a lil slow after about 200 panels.