Re: Listbox colorazione riga subordinata a contenuto cella

[Massimo Lista <massimo.lista@gmail.com>]

Lo credevo anch'io. Però ho verificato che così vengono colorate tutte le
celle della Listbox.Se vuoi colorare solo quella dove c'è "Pippo" occorre
individuare il numero della riga dove c'è Pippo e subordinare la colorazione
a quel numero di riga.
Non so perchè ma prova....


Il giorno 16 giugno 2009 9.27, Ing. Antonio Rinaldi <falcosoft@mac.com> ha
scritto:

> Non potrebbe voler dire che basta solo questa parte del codice?
>
> If Listbox1.cell(row,1)="Pippo" then
>    g.foreColor=...
>    g.fillRect....
> End if
>
> L'evento e CELLbackgroundPaint ovvero è il background della cella di
> coordinate Row e Column, e non di tutta la listbox
>
>
> Il giorno 16-06-2009 9:05, Massimo Lista, massimo.lista@gmail.com ha
> scritto:
>
> > Per colorare una riga subordinata al valore contenuto in una cella avevo
> > scritto:Su Evento: CellBackgroundPaint
> >
> > Dim i, TotRow, res As Integer
> >   Dim numriga As integer
> >   TotRow=me.ListCount
> >   for i=0 to TotRow -1
> >     If ListBox1.Cell(i,1) = "Pippo" then
> >         g.ForeColor=RGB(255,176,98) //Arancio
> >         g.FillRect(0,0,g.Width,g.Height)
> >     end if
> >   next
> > ...ma non funzionava (vengono colorate tutte le righe pur intercettando
> l'if
> >
> >
> > Per farlo funzionare ho dovuto aggiungere if row =...
> > Dim i, TotRow, res As Integer
> >   Dim numriga As integer
> >   TotRow=me.ListCount
> >   for i=0 to TotRow -1
> >     If ListBox1.Cell(i,1) = "Pippo" then
> >       numriga = i
> >       if row = numriga  then
> >         g.ForeColor=RGB(255,176,98) //Arancio
> >         g.FillRect(0,0,g.Width,g.Height)
> >       end if
> >     end if
> >   next
>
>
>
>


-- 
Massimo