Italian Pulsanti lettura / eliminazione

[nonno]

ciao ragazzi , come il solito ho un problema, ho provando in vari modi… con il ciclo for/next creo i pulsanti che voglio.
Se li voglio leggere quale comando devo usare, sender funzione sul pulsante che schiaccio, se con lo stesso ciclo che li ho creati e voglio cancellarli / sapere il colore / il testo, quale comando dovrei usare, qualche consiglio ? Grazie mille


For i =0 To 6

Dim buton As Button
buton.Initialize("buton")
buton.Text= "Laike"
Activity.AddView(buton,2%x,(i+5)*70,50%x,50%y)

Next

 

[LucaMs]

Ciao.

Intanto non li creerei da codice ma usando il Designer.

Se proprio vuoi farlo in quel modo, memorizzali in un array:

Sub Globals
Dim arrButons(7) As Button

For i =0 To 6
   Dim buton As Button
   buton.Initialize("buton")
   buton.Text= "Laike"
   Activity.AddView(buton,2%x,(i+5)*70,50%x,50%y)
   arrButons(i) = buton
Next

Poi potrai scrivere:

arrButons(3).Text = "Ciao"

 

[nonno]

Graziiieee Mille Luca

 

[nonno]

Intanto non li creerei da codice ma usando il Designer.

creali da Designer il codice per sapere il colore del pulsante oppure il testo, non rimane uguale ?

 

[LucaMs]

creali da Designer il codice per sapere il colore del pulsante oppure il testo, non rimane uguale ?

Sì, puoi rilevare solo quello premuto. Per fare ciò che vuoi tu, è necessario usare ugualmente un array.
Il vantaggio è non dover scrivere quel codice per la creazione e la possibilità di riutilizzare il layout o perfino copiare i button in un layout per b4j o b4i.
Non solo; se decidi di cambiare qualcosa (il loro numero, dimensione, posizione...) è molto più facile farlo nel Designer.