Re: Listbox colorazione riga subordinata a contenuto cella

[Massimo Valle <maxduepuntozero@yahoo.it>]

Massimo, temo tu abbia frainteso l'utilizzo di questo evento. Prova  
con questo codice:
  if row < me.listcount then
    If me.Cell(row, 1) = "Pippo" then
      g.ForeColor=RGB(255,176,98) //Arancio
      g.FillRect(0,0,g.Width,g.Height)
    end if
  end if


Massimo Valle


On 16/giu/09, at 09:05, Massimo Lista wrote:

> 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