Ciao a tutti e non capisco come faccio con la classe custom list view a crearla e aggiungere immagine e bottone sotto. Sarei già contento se qualcuno postasse un esempio di come loro hanno usato questa classe. Proprio sto impazzendo.. mi sarebbe utilissima
i=numeropost
totalealt=0
Do While i<>0
lbltesto(i).Initialize("lbltesto"&i)
lbltesto(i).Text=strpost(i)
altezza=10%y
'altezza = sutils.MeasureMultilineTextHeight(lbltesto(i),lbltesto(i).Text)
'altezza=lbltesto(i).Height
pannello(i).Initialize("p"&i)
pannello(i).AddView(lbltesto(i),0,totalealt,100%x,altezza+2%y)
pannello(i).Visible=True
totalealt=totalealt+altezza+2%y
csl.Add(pannello(i),altezza+2%y,"POST "&i)
i=i-1
Loop
Mi da un errore con "altezza = sutils.MeasureMultilineTextHeight(lbltesto(i),lbltesto(i).Text)", così ho messo "altezza=10%y", però quando finisce non mi fa vedere nulla... sai il perché?
Immagino che tu intenda dire:
se io ho un button per ogni "item", come faccio a catturare l'evento per quello specifico tasto?
Semplicemente devi usare per tutti QUEI button lo stesso nome evento (poniamo che sia il tasto che l'evento vengano chiamati btnPremi) ed usare la "variabile interna di B4A" Sender per distinguere quale button sia stato premuto:
Sub bntPremi_Click
dim btnPremuto As Button = Sender
...
End Sub
Dipende da ciò che poi devi fare una volta che hai ottenuto il button.
In effetti il tag può essere molto utile e potrai usare, proseguendo con l'esempio precedente:
if btnPremuto.Tag = ...
Ti ricordo che il Tag può contenere qualunque tipo di oggetto, non solo testo o numeri, quindi anche un tuo tipo (type) personalizzato o un oggetto derivato da una tua classe oppure un oggetto List o Map o etc.