ADICIONAR COR EM ALGUMAS LINHAS DO LIST-VIEW ?

USUARIO.EXCLUIDOS 07/04/2007 18:54:00
#210704
Tenho uma list-view carregada com apenas 20 linhas constantes, pois só serão essas linhas memas, mas como coloco cor em algumas linhas, por exemplo na [txt-color=#3333ff]1º[/txt-color] e na [txt-color=#3333ff]6º linha[/txt-color] ?
EMANUEL 07/04/2007 19:18:24
#210706 Resposta escolhida
Ola Patiricia,

veja, este exemplo que utiliso em um dos forms


ListVPed(0).ListItems.Clear
Do While Not Rs.EOF
Set itemlst = ListVPed(0).ListItems.Add
itemlst = Format(Rs!NumPed, "000")
itemlst.SubItems(1) = Rs!Opcao
itemlst.ListSubItems(1).ForeColor = vbBlue 'Colocar am azul
itemlst.ListSubItems(1).Bold = True 'Colocar em negrito
Rs.MoveNext
Loop

enfim.. dai vc coloca na coluna que quizer...

Espero ter ajudado

sds
Emanuel
USUARIO.EXCLUIDOS 07/04/2007 19:54:23
#210709
Também consegui.... obrigado... bjs

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

    lv.Picture = picBg.Image

End Sub
USUARIO.EXCLUIDOS 07/04/2007 20:00:16
#210710
No list-View, quando clicamos na linha, ele edita a linha para vc escrever ou modificar a 1 coluna.. como faço para que o usuario , nao faça edite o conteúdo da primeira coluna.. tipo um LOCK.. ?
EMANUEL 07/04/2007 20:07:53
#210712
Na propriedade do listview, em LabelEdit coloca como manual.

Quero mais um beijo! heheheehhe

sds
Emanuel
USUARIO.EXCLUIDOS 07/04/2007 22:42:23
#210716
BEIJÃO....... kkkkk
Tópico encerrado , respostas não são mais permitidas
Voltar