LISTBOX

USUARIO.EXCLUIDOS 23/06/2004 16:35:50
#30938
Do Until Tbbaixas.EOF
DBList_2.AddItem Format(Tbbaixas("Codigo"), "000000")
DBList_2.List(i, 1) = Format(TbPva("Unitario"), "#,###,##0.00")

Preciso alinhar o resultado do campo unitário à  esquerda da coluna em um listBox. Alguem tem uma função ou outro jeito de fazer isso?

O valor carrega assim centralizado: 3.224,00
221,00
315,00

preciso que saia assim: 3.224,00
221,00
315,00

Saliento que so posso usar o LixtBox.
THIAGO.CESAR 23/06/2004 18:36:13
#30961 Resposta escolhida
Suponhamos que na segunda instrução, isto é, a que vc quer alinhar, vc possa colocar até 10 caracteres.
Vc pode completar todas as casas anteriores com espaços... (Não sei se isso atrapalharia o seu projeto...)



'O argumento da largura seria a quantidade de caracteres...
DBList_2.List(i, 1) = Alinhar(Format(TbPva("Unitario"), "0.00"),10)

Private Function Alinhar(Texto as String, Largura as Integer) 
Alinhar = String(Largura - Len(Texto), " ") & Texto
End Function


Espero que consiga o que pretende...
THIAGO.CESAR 24/06/2004 10:47:38
#31025
As duas funções chegam ao mesmo resultado...

Para usar a segunda opção em seu projeto, ficaria mais ou menos assim:
DBList_2.List(i, 1) = Preenche_Caracter((Format(TbPva("Unitario"), "0.00"),10," ",True))
' Onde 10 é a largura que vc usa.

Boa sorte
Tópico encerrado , respostas não são mais permitidas
Voltar