MUDAR A COR DA FONTE NO LISTVIEW

CHARLESTON10 14/02/2011 12:53:18
#365386
Nao...
Debaixo da Funcao Colorir

If lstRegistro.ListItems.Count <> 0 Then
>>>>>>> picBg.Width = lstRegistro.Width <<<<<<< APAGA E COLOCA O METODO FOR - VOU MOSTRAR
picBg.Height = lstRegistro.ListItems(1).Height * (lstRegistro.ListItems.Count)
picBg.ScaleHeight = lstRegistro.ListItems.Count
picBg.ScaleWidth = 1
picBg.DrawWidth = 1
picBg.Cls

Dim J as Double

picBg.width = 0

For J = 0 to listview.listitems.count
picBg.width = picBg.width + lista.columnheaders(J).width
next

Ficaria assim:

Dim J as Double

picBg.width = 0



If lstRegistro.ListItems.Count <> 0 Then
      For J = 0 to listview.listitems.count
              picBg.width = picBg.width + lista.columnheaders(J).width
     next
  
        picBg.Height = lstRegistro.ListItems(1).Height * (lstRegistro.ListItems.Count)
        picBg.ScaleHeight = lstRegistro.ListItems.Count
        picBg.ScaleWidth = 1
        picBg.DrawWidth = 1
        picBg.Cls

[....]
LEAO10 14/02/2011 14:20:51
#365397

Aqui eu fiz da forma abaixo, e deu certo...

lstRegistro.listsubitens(1).forecolor = VbRed
ADRIANOM 14/02/2011 19:54:01
#365430
Aleluiiiaaa Aleeeeluiiiiiaaaaaaaaaa.... Consegui...........

Agradeço imensamente ao meu companheiro GOODSPEAKERS....
Estava fazendo certo.. só não tinha raciocinado que deveria setar para cada ítem a cor vermelha.. heheh tão simples.. e ao mesmo tempo tão complexo!

OBRIGADO GOODSPEAKERS
Página 2 de 2 [14 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar