Meus amigos,

 

Tenho um campo memo e o coloco dentro de um listbox, mas fica aparecendo a linha inteira, isto é, do tamanho do campo memo. Gostaria que ficasse quebrando a cada 40 caracteres e dessa forma ficaria dentro do listbox na vertical, ordenado. Alguém pode me ajudar?

 

Obrigado.

 

Joaquim

 

não é melhor colocar num richtextbox?? Um list geralmente é usado pra fazer seleção de algum item... bom olhe o código de exemplo:

 

palavra = "ABCDE1234ABCDASDFPOIUPOAISDUPOIASUOPFIUASPODIUF0982709823450982345POISPOIWPOIU"

Do
    P = Left(palavra, 10) & vbCrLf
    palavra = Mid(palavra, 10, Len(palavra))
    j = j & P
Loop Until Len(palavra) <= 10
    j = j & palavra
MsgBox j

 

é a mesma coisa... só q em vez de 10 é 40 e onde está 'p' vc coloca list1.addItem Left(palavra...

 

qq dúvida é só postar

 

at+