Ir para o conteúdo
vpess

Condição em Listview

Mensagens Recomendadas

vpess    0
vpess

Boas,

Peço a vossa ajuda para resolver uma pequena questão.

Eu tenho uma função que preenche uma listview, mas queria colocar uma condição para quando a data fosse vencida colocava a cor da fonte nessa linha a vermelho, senão ficava verde.

Eu já fiz a condição e está a funcionar, mas só consegui colocar numa coluna se esta vencido ou em dia. Não consegui mudar a cor da letra.

Deixo o código em baixo:

________________________________________________________

Public Sub preenche_lista()

ListView1.ListItems.Clear

If rs.RecordCount = 0 Then Exit Sub

 

  While Not rs.EOF

    Set Lst = ListView1.ListItems.Add(, , rs(0))

       

      For i = 1 To 5

        If rs!datav > Date Then

            Lst.SubItems(i) = rs(i)

            Lst.SubItems(6) = "Em dia"

        Else

            Lst.SubItems(i) = rs(i)

            Lst.SubItems(6) = "Vencido"

        End If

       

      Next i

    rs.MoveNext

  Wend

End Sub

________________________________________________________

Cumprimentos,

Vitor Pinto

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
vpess    0
vpess

Procura por forecolor

acho que é assim

 lst.subitems(6).forecolor=vbred 

Boas,

Já tinha tentado isso, mas dá erro, "Objecto Requerido"

Public Sub preenche_lista()

ListView1.ListItems.Clear

If rs.RecordCount = 0 Then Exit Sub

 

  While Not rs.EOF

    Set lst = ListView1.ListItems.Add(, , rs(0))

       

      For i = 1 To 5

        If rs!datav > Date Then

            lst.SubItems(i) = rs(i)

            lst.SubItems(6) = "Em dia"

        Else

            lst.SubItems(i) = rs(i)

            lst.SubItems(6) = "Vencido"

            lst.SubItems(6).ForeColor = vbRed

        End If

       

      Next i

    rs.MoveNext

  Wend

End Sub

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade