Re: Listbox colorazione riga subordinata a contenuto cella

["Ing. Antonio Rinaldi" <falcosoft@mac.com>]

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