DESTACAR LINHA

 Tópico anterior Próximo tópico Novo tópico

DESTACAR LINHA

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#18023 - 01/04/2004 13:03:11

PROPAR
SAO PAULO
Cadast. em:Março/2004


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  ENTO  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 boto de listagem no vdeo
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




alexandre

Resposta escolhida #18024 - 01/04/2004 13:07:31

USUARIO.EXCLUIDOS

Cadast. em:


Na listbox no tem como modificar a cor da linha

Mas se voc alterar para uma  TREEVIEW tu consegue acessar cada NODE e definir seu BACKCOLOR



#18043 - 01/04/2004 13:39:01

USUARIO.EXCLUIDOS

Cadast. em:


Se quiser modificar para TREEVIEW eu te ajudo na modificao

Mas a TREEVIEW faz parte de uma OCX externa e a mesma dever acompanhar o executavek



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por WEBMASTER em 18/08/2009 10:03:45