Colorir linha inteira ListView [RESOLVIDO]

[avgsantos]

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

[Mikel Silveira Fraga]

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:

Código: Selecionar todos

If listview.ListItems.Item(x).ListSubItems(1).Text Like "Suspenso*" Then

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.

[avgsantos]

Boa noite, Mikel

Ok, valeu deu certo, obrigado

Abraços
avgsantos

[pedro_mexico]

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

[sandrojrs]

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