DESTACAR LINHA

PROPAR 01/04/2004 13:03:11
#18023
EU ESTOU USANDO O LIST PARA MOSTRAR ALGUNS VALORES MAIS ESTOU COM UM PROBLEMA EU TENHO QUE FAZER UMA CONSULTA
SE PAGAMENTO FOR DE VAZIO ENTÃO ELE DESTACA A LINHA, MUNDADO DE COR A LINHA , FICA VERMELHA E AS OUTRA CONTINUAM PRETA , CADA VEZ QUE O PAGAMENTO FOR PREENCHIDO A LINHA MUDA DE COR VERMELHA

O MEU CODIGO ESTA ASSIM:


'Evento Click() do botão de listagem no vídeo
Private Sub BtnListarVideo_Click()
Dim Saldo As Double

Saldo = 0
LstMov.Clear
RegCon.Index = "IndiceData"
RegCon.MoveFirst
Do Until RegCon.EOF
RegCon.Edit

Saldo = Saldo + RegCon("Entrada") - RegCon("Saida")

If RegCon("Data") = InvData(TxtDataInicial.Text) Then
LstMov.AddItem RegCon("Sequencia") + " " + InvData(RegCon("Data")) + " " + _
" " + Alinha(Mid(RegCon("Descricao"), 1, 10), 10, "ESQ") + " " + InvData(RegCon("Vencimento")) + " " + " " + InvData(RegCon("Pagamento")) + _
Alinha(Format(RegCon("Entrada"), "#,###,##0.00"), 12, "DIR") + _
Alinha(Format(RegCon("Saida"), "#,###,##0.00"), 12, "DIR") + _
Alinha(Format(Saldo, "#,###,##0.00"), 12, "DIR")
End If

RegCon.MoveNext
Loop
End Sub


USUARIO.EXCLUIDOS 01/04/2004 13:07:31
#18024 Resposta escolhida
Na listbox não tem como modificar a cor da linha

Mas se você alterar para uma TREEVIEW tu consegue acessar cada NODE e definir seu BACKCOLOR
USUARIO.EXCLUIDOS 01/04/2004 13:39:01
#18043
Se quiser modificar para TREEVIEW eu te ajudo na modificação

Mas a TREEVIEW faz parte de uma OCX externa e a mesma deverá acompanhar o executavek
Tópico encerrado , respostas não são mais permitidas
Voltar