oi pessoal essa é fera ,alguem tem ideia de como fazer pra deixar linhas do Listview da mesma cor , mas somente regisrtos q tenham o mesmo Codigo, se por exemplo no listview eu tenho 5 registros , 3 deles tem o mesmo Codigo 1, entao eles ficam azuis , e o restante fica cada linha de uma cor , alguem tem ideia se é possivel fazer isso?

 

obrigado

 

sem mais 

'Exemplo : Em um form crie uma listview, uma picturebox  e um botao. Insira o código:

 

Option Explicit
Dim MaxCmd As Integer

 

Private Sub Form_Load()
    Dim i As Integer
    Dim mRow As ListItem
   
    Me.ScaleMode = vbTwips
 
   ListView1.View = lvwReport
   ListView1.FullRowSelect = True
    ListView1.Checkboxes = True
    ListView1.ColumnHeaders.Add , , "ID"
    ListView1.ColumnHeaders.Add , , "Note"
    For i = 0 To 40
      Set mRow = ListView1.ListItems.Add(, , CStr(i))
      mRow.SubItems(1) = "Este é o item  " & i
    Next
 
   ListView1.ListItems(3).Checked = True
   ListView1.ListItems(5).Checked = True
   ListView1.ListItems(13).Checked = True
   ListView1.ListItems(23).Checked = True
   ListView1.ListItems(6).Checked = True
   ListView1.ListItems(9).Checked = True
    Picture1.BackColor = ListView1.BackColor
    Picture1.ScaleMode = vbTwips
    Picture1.BorderStyle = vbBSNone
    Picture1.AutoRedraw = True
    Picture1.Visible = False
   '---------------------------
  

End Sub

 

 

Private Sub Command1_Click()
    Dim i As Integer
    MaxCmd = 1
    Picture1.Width = ListView1.Width
    Picture1.Height = ListView1.ListItems(1).Height * (ListView1.ListItems.Count)
    Picture1.ScaleHeight = ListView1.ListItems.Count
    Picture1.ScaleWidth = 1
    Picture1.DrawWidth = 1
    Picture1.Cls
    For i = 1 To ListView1.ListItems.Count
   
       If ListView1.ListItems(i).Checked = True Then
         Picture1.Line (0, i - 1)-(1, i), &HC0FFFF, BF
       Else
         Picture1.Line (0, i - 1)-(1, i), &HFF8080, BF
       End If
    Next
   

    ListView1.Picture = Picture1.Image

End Sub

 

 

obrigado por responder irmao , mas eu apertei o botao mudou de cor a picture , msa porq tem q ter essa picture? como faço para as linhs ficarem com cor ? putz se puder ajudar agradeço

  Marque e desmarque as opções e clique no botao "command1" e veja o que acontece com a listview.

  Confira os nomes dos dispositivos.

 

ei irmao nao acontece nada , somente o picture muda de cor

coloquei assim irmao no meu

 

ListView1.ColumnHeaders.Clear
    ListView1.ColumnHeaders.Add , , "", 0
    ListView1.ColumnHeaders.Add , , "Tipo", 1700
    ListView1.ColumnHeaders.Add , , "Código", 0
       
    ListView1.ColumnHeaders.Add , , "Proprietário", 1000
    ListView1.ColumnHeaders.Add , , "Vencimento", 1100
    ListView1.ColumnHeaders.Add , , "Entrada", 1100
    ListView1.ColumnHeaders.Add , , "Saida", 1100
    ListView1.ColumnHeaders.Add , , "Parcela", 900
    ListView1.ColumnHeaders.Add , , "Dias Atraso", 1200
    ListView1.ColumnHeaders.Add , , "Mes Atual", 1200
    ListView1.ColumnHeaders.Add , , "Valor", 1000
   
  
   For i = 0 To 40
      Set mRow = ListView1.ListItems.Add(, , CStr(i))
      mRow.SubItems(1) = "Este é o item  " & i
    Next
    
    
    ListView1.ColumnHeaders(1).Width = 0
    ListView1.ColumnHeaders(2).Alignment = lvwColumnCenter
    ListView1.ColumnHeaders(3).Alignment = lvwColumnCenter
    ListView1.ColumnHeaders(4).Alignment = lvwColumnCenter
    ListView1.ColumnHeaders(5).Alignment = lvwColumnCenter
    ListView1.ColumnHeaders(6).Alignment = lvwColumnCenter
    ListView1.ColumnHeaders(7).Alignment = lvwColumnCenter
    ListView1.ColumnHeaders(8).Alignment = lvwColumnCenter
    ListView1.ColumnHeaders(9).Alignment = lvwColumnCenter
    ListView1.ColumnHeaders(10).Alignment = lvwColumnCenter
   
    ListView1.ListItems.Clear