FORMATANDO COLUNA NO LISTBOX

USUARIO.EXCLUIDOS 30/03/2005 15:25:51
#75815
Criei uma form com 3 caixa texto e 1 listbox com um determinado numero d caracteres, apos inserir o conteudo dessas cx texto no list gostaria que ele respeitasse o numero de caracteres estipulando um "|", tenho um codigo pronto mas nao estou consiguindo colocar ele em um formato

este é um exemplo:

Private Sub cmdinserir_Click()
List1.AddItem Format(Text1, "@@@@@@") & Space(8) & "|" _
& Format(Text2, "@@@@@@@@@@@@@") & Space(20) & "|" _
& Format(Text3, "#,##0.00") & Space(10) & "|"
End Sub

se puderem me ajudar agradeço antecipadamente
USUARIO.EXCLUIDOS 30/03/2005 15:41:25
#75821
Cara o que vc está querendo já fiz... usa um pouco de código, mas fiz mais ou menos assim

| JOSé DA SILVA             | QUADRA 500 CJ 01 CS 31                | (61) 333-4165   |


O primeiro passo é DEFINIR parcialmente quantos CARACTERES, ficará em cada campo..
NOME = 26
ENDERECO = 38
TELEFONE = 16
Você terá de usar a mesma fonte, e se possível... UCASE ou LCASE...

vnome = "JOSé DA SILVA"
vendereco = "QUADRA 500 CJ 01 CS 31"
vtelefone = "(61) 333-4165"

if len(vnome) > 26 Then
Msgbox "Erro! Ultrapassou o limite"
elseif len(vnome) = 26 Then
spnome = 26
else
spnome = 26 - len(vnome)
end if

if len(vendereco) > 38 Then
Msgbox "Erro! Ultrapassou o limite"
elseif len(vendereco) = 38 Then
spendereco = 38
else
spendereco = 38 - len(vendereco)
end if

if len(vtelefone) > 16 Then
Msgbox "Erro! Ultrapassou o limite"
elseif len(vtelefone) = 16 Then
sptelefone = 16
else
sptelefone = 16 - len(vtelefone)
end if

List1.AddItem " | " & vnome & Space(spnome) & "| " & vendereco & space(spendereco) & "| " & vtelefone & space(sptelefone)

A cada nome, endereço telefone, ele verifica o tamanho e define os espaços..
mas os itens tem de ser todos em UCASE .. ou LCASE...

entendeu?
USUARIO.EXCLUIDOS 30/03/2005 16:43:14
#75839
meu caro amigo germanir ele me traz corretamente mas nao formata o Caracter
" | " exemplo:

|José da Silva |
|Emerson |
|Germanir |
|Carlos Eduardo |
ele nao formata como gostaria

|José da Silva |
|Emerson |
|Germanir |
|Carlos Eduard |
gostaria que ficasse igual a este 2º exemplo
USUARIO.EXCLUIDOS 30/03/2005 16:49:04
#75842 Resposta escolhida
mude o tipo da fonte para DRAFT OU ROMAN 10 CPI .
Tópico encerrado , respostas não são mais permitidas
Voltar