Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Colorir linha inteira ListView [RESOLVIDO]
Colorir linha inteira ListView [RESOLVIDO]
Boa noite, Equipe do Forún
Preciso de uma ajuda, tenho código abaixo para colorir a linha do listview, o código funciona apenas a letra se eu digitar "Suspenso" , não estou conseguindo colorir se caso tiver digitado "Suspenso por 1 dia...." é possível fazer isso?
For x = 1 To listview.ListItems.Count
If listview.ListItems.Item(x).ListSubItems(1).Text = "Suspenso" Then
list_listview.ListItems.Item(x).ListSubItems(1).ForeColor = RGB(255, 204, 0)
End If
Next x
Preciso de uma ajuda, tenho código abaixo para colorir a linha do listview, o código funciona apenas a letra se eu digitar "Suspenso" , não estou conseguindo colorir se caso tiver digitado "Suspenso por 1 dia...." é possível fazer isso?
For x = 1 To listview.ListItems.Count
If listview.ListItems.Item(x).ListSubItems(1).Text = "Suspenso" Then
list_listview.ListItems.Item(x).ListSubItems(1).ForeColor = RGB(255, 204, 0)
End If
Next x
Editado pela última vez por avgsantos em Ter Ago 23, 2016 8:37 pm, em um total de 1 vez.
- Mikel Silveira Fraga
- Jedi
- Mensagens: 1173
- Registrado em: Sex Mai 27, 2011 3:27 pm
- Localização: Governador Valadares - MG
- Contato:
Re: Colorir linha inteira ListView
AvgSantos, bom dia.
Cara, tem como fazer isso sim, basta fazer o teste If, usando o Operador Like. Nesse caso, o código ficaria assim:
Dessa forma, será realizado o teste, verificando todas as células do ListView, que comecem com a palavra Suspenso.
Veja se isso lhe ajuda.
Abraços e excelente semana.
Cara, tem como fazer isso sim, basta fazer o teste If, usando o Operador Like. Nesse caso, o código ficaria assim:
Código: Selecionar todos
If listview.ListItems.Item(x).ListSubItems(1).Text Like "Suspenso*" Then
Veja se isso lhe ajuda.
Abraços e excelente semana.
-
- Consultor
- Mensagens: 285
- Registrado em: Qua Dez 09, 2015 5:54 pm
Re: Colorir linha inteira ListView [RESOLVIDO]
boa tarde avgsantos.
era possivel colocar o codigo completo para tentar adaptar na minha listview?
so com o que voce colocou, nao consigo adaptar.
obrigado
era possivel colocar o codigo completo para tentar adaptar na minha listview?
so com o que voce colocou, nao consigo adaptar.
obrigado
Re: Colorir linha inteira ListView [RESOLVIDO]
Dim linhas As Integer
Dim Colunas As Integer
Dim i
Dim X
With 'colocar aqui o nome do seu formulario
Colunas = .nome da sua listview.ColumnHeaders.Count
linhas = .nome da sua listview.ListItems.Count
For i = 1 To linhas
If .nome da sua listview.ListItems(i).ListSubItems(5) = "Pronto" Then
.nome da sua listview.ListItems(i).ForeColor = RGB(0, 0, 205)
For X = 1 To Colunas - 1
.nome da sua listview.ListItems(i).ListSubItems(X).ForeColor = RGB(0, 0, 205)
Next
Dim Colunas As Integer
Dim i
Dim X
With 'colocar aqui o nome do seu formulario
Colunas = .nome da sua listview.ColumnHeaders.Count
linhas = .nome da sua listview.ListItems.Count
For i = 1 To linhas
If .nome da sua listview.ListItems(i).ListSubItems(5) = "Pronto" Then
.nome da sua listview.ListItems(i).ForeColor = RGB(0, 0, 205)
For X = 1 To Colunas - 1
.nome da sua listview.ListItems(i).ListSubItems(X).ForeColor = RGB(0, 0, 205)
Next