Listbox

Ciao Antonio

Una domanda: posso salvare un colore nella cella di una listbox?

ciao

Ciao Alan,
spero non ti dispiaccia se ti rispondo io invece di Antonio :wink:

La domanda non chiarissima, ma provo a risponderti:
La Listbox pu memorizzare un “tag” sotto forma di Variant per ogni cella, di conseguenza tu puoi fare una cosa simile:

dim c as Color = &cFF00FF Listbox1.cellTag(0, 0) = c

Questo memorizzer il colore come tag della cella 0, 0 (riga, colonna).

Ciao Massimo

Figurati anzi grazie 1000!!

Hai ragione la domanda non era molto chiara cosicche la riformulo: vorrei che la cella di una listbox assumesse un colore specifico e che questo colore si possa memorizzare come fosse un dato qualisiasi. E’ possibile farlo?

Grazie Massimo

Allora, dopo aver memorizzato il colore in ogni cellTag come ho spiegato prima, implementi l’evento CellBackgroundPaint() con codice tipo questo:

if row < me.listCount then if me.cellTag(row, column) <> nil then g.foreColor = me.cellTag(row, column) g.fillRect(0, 0, g.width, g.height) end if end if

ok adesso lo provo subito e ti faccio sapere

grazie 1000 Massimo

Not really. If you return true here, you will have to handle the drawing even for the selection, which is unwanted I believe from the request.

esatto Massimo hai centrato il punto

ciao