LISTVIEW ICONES

FANY2016 18/05/2016 13:54:23
#462211
Oi pessoal,

Como faço pra mudar a cor do icones conforme os dados de Entrada (verde) - Saida (vermelho)?

[ô]este funciona somente com um ícones.

Set Lst = ListView1.ListItems.add(, , Rst(0) & [Ô] [Ô], , [Ô]verde[Ô])

*O exemplo em anexo:

Grata,
FABRICIOWEB 18/05/2016 17:02:15
#462222 Resposta escolhida
Adicione isso no inicio de sua função preencher list


ListView1.ListItems.Clear
If Rst.RecordCount = 0 Then Exit Sub
While Not Rst.EOF
If Rst!tipo = [Ô]Saida[Ô] Then
Set Lst = ListView1.ListItems.Add(, , Rst(0) & [Ô][Ô], , [Ô]verde[Ô]) [ô] se over necessidade mude a cor aqui
Else
Set Lst = ListView1.ListItems.Add(, , Rst(0) & [Ô][Ô], , [Ô]vermelho[Ô]) [ô] se over necessidade mude a cor aqui
End If


Se der certo aqui funfou da a nota e finaliza vlwwwwww
FANY2016 19/05/2016 03:24:09
#462259
Citação:

:
Adicione isso no inicio de sua função preencher list


ListView1.ListItems.Clear
If Rst.RecordCount = 0 Then Exit Sub
While Not Rst.EOF
If Rst!tipo = [Ô]Saida[Ô] Then
Set Lst = ListView1.ListItems.Add(, , Rst(0) & [Ô][Ô], , [Ô]verde[Ô]) [ô] se over necessidade mude a cor aqui
Else
Set Lst = ListView1.ListItems.Add(, , Rst(0) & [Ô][Ô], , [Ô]vermelho[Ô]) [ô] se over necessidade mude a cor aqui
End If


Se der certo aqui funfou da a nota e finaliza vlwwwwww



Excelente...

Obrigada!
Tópico encerrado , respostas não são mais permitidas
Voltar