Italian AZZERARE LISTA

max611

Active Member
Licensed User
Longtime User
ciao ragazzi
altro problem, come faccio ad azzerare la lista del panel

B4X:
ScrollView1.Initialize(0)
  
    pnl = ScrollView1.Panel
        pnl.Color=Colors.Gray
    Activity.AddView(ScrollView1, 600dip, 10dip, 100%x, 100%y)
    
    For num = 0 To descrizione_co.Length-1
If descrizione_ci(num)=scelta_circuito Then       
        chk.Initialize("chk")
        chk.Tag=trovato
        chk.TextColor=Colors.Cyan
        chk.TextSize=24
        chk.Text = descrizione_co(num).ToUpperCase
'        lstChecks.Add(chk)
        Dim lbl1,lbl2 As Label
        lbl1.Initialize("")
        lbl1.TextColor=Colors.Green
        lbl1.Text = "Qta . " &  qta_co(num)
        lbl1.Gravity = Gravity.CENTER_VERTICAL
        pnl.AddView(chk, 0, height * (trovato - 1), 195dip, height)
        pnl.AddView(lbl1, 200dip, height * (trovato - 1), 120dip, height)
        trovato=trovato+1

questa mi crea una lista di tot articoli.
ora scegliendo altro articolo dovrebbe ricreare altra lista ma mi crea sopra la precedente,
che se è più corta si vedono anche quelli precedenti
praticamente una specie di panel.clear ma non c'è
qualcosa di simile?
grazie ragazzi
 

max611

Active Member
Licensed User
Longtime User
eh lo so ma io la versione 5 e non funziona, ho provato con la versione8 di prova e va, ma allora dovrei installare tutto new
pazienza.
tornando a noi, ho provato come dici tu ma il programma si spegne
l'ho messo qui

B4X:
Sub Spinner1_ItemClick (Position As Int, Value As Object)
ScrollView1.RemoveView
    trovato=1
    num=0
        scelta_circuito=Value
    popolascroll <-------qui torna alla sub come sopra
End Sub
 
Top