Italian ListView

[nonno]

Nelle versioni più recenti di clv ci sono anche funzioni che permettono di andare all'ultimo item visibile. In pratica su una lista di 20 pannelli, se ne stai visualizzando 8, hai una funzione che salta all'ottavo. Quando l'utente effettua uno scroll e mostra fino al dodicesimo, potrai saltare a quello e così via.

Scusa udg io ho B4A con licenza dove trovo la versione più recente?
Grazie mille

 

[udg]

Nel primo post di questo thread.
C'è sia la versione libreria che quella modulo.

 

[nonno]

Ragazzi qualcuno potrebbe dirmi dove sbaglio, pigiando sul pulsante all'interno di una CustomListView vorrei allargare la riga da 70dip a 140dip
Grazie mille


Dim bt As Button = Sender
Dim row As Int =clv.GetItemFromView(bt)
Dim rowpnl As Panel = clv.GetPanel(row)
clv.InsertAt(row, $"Item !!!"$, clv.AsView.Width, 140dip), 140dip, $"Item !!!"$

 

[Deleted member 103]

Perchè fai un nuovo Insert?
Il panel "rowpnl" lo hai, quindi:
rowpnl.Height = 140dip

 

[nonno]

Perchè fai un nuovo Insert?
Il panel "rowpnl" lo hai, quindi:
rowpnl.Height = 140dip

Grazie Filippo adesso provo.

 

[nonno]

Grazie Filippo adesso provo.

rowpnl.Width = 130dip ( funziona)
rowpnl.Height = 140dip ( non funziona )
la riga non si allarga .
rowpnl.Color=Colors.Green ( funziona )

 

[Deleted member 103]

rowpnl.Width = 130dip ( funziona)
rowpnl.Height = 140dip ( non funziona )
la riga non si allarga .
rowpnl.Color=Colors.Green ( funziona )

Devi inserire questo:

Dim bt As Button = Sender
  Dim row As Int = clv.GetItemFromView(bt)
   clv.ResizeItem(row, 140dip)

 

[nonno]

Dim bt As Button = Sender
Dim row As Int = clv.GetItemFromView(bt)
clv.ResizeItem(row, 140dip)

Grazie mille Filippo Funziona