listview şarta göre renklendirmede problem var

[ridvan2111]

Selam Arkadaşlar
buradaki kod ta eğer şarta uymuyorsa ( else ) eski haline nasıl döndürürüm
ben else yi yazamadım

Private Sub Listview1_Click()
.....
....
On Error Resume Next
For i = 1 To ListView3.ListItems.Count
If ListView3.ListItems(i).SubItems(11) = TextBox55.Text Then
For a = 1 To ListView3.ColumnHeaders.Count


ListView3.ListItems(i).ListSubItems(a).ForeColor = vbBlue
ListView3.ListItems(i).ListSubItems(a).Bold = True

Next a
End If
Next i
ListView3.Refresh
End Sub

 

[ridvan2111]

yokmu bi çözümü

yukarıdaki kodlamada mantık hataları olabilir başka bir uygulama şekli varsa olabilir.

 

[mustafaine1]

Next a

kismindan sonra else ile if statement`ina devam ediniz.

 

[Orion1]

İlgili yerleri şöyle deneyiniz.

If ListView3.ListItems(i).SubItems(11) = TextBox55.Text Then
     renk = vbblue
     koyu=true
     else
     renk = vbred
     koyu = false
end if
For a = 1 To ListView3.ColumnHeaders.Count


ListView3.ListItems(i).ListSubItems(a).ForeColor = renk
ListView3.ListItems(i).ListSubItems(a).Bold = koyu

Next a

 

[ridvan2111]

Sayın Mustafaine ilginiz için teşekkür ederim.

Sayın Evren bey Kod mükemmel çalıştı teşekkür ederim.