VB

USUARIO.EXCLUIDOS 02/04/2004 17:09:42
#18543
Qual é o código que eu uso para quando eu digitar uma palavra no text e no List apareça na vertical Letra por Letra. Exemplo eu digito: Amor e em cada List imprima:
List1 List2
A e AMOR
AM AMO
AMO AM
AMOR A

E outro comando que por exemplo eu digito Terra e imprima em cada List:
List1 List2
A e TERRA
RA ERRA
RRA RRA
ERRA RA
TERRA A
USUARIO.EXCLUIDOS 02/04/2004 17:19:50
#18553
Resposta escolhida
Não vou testar.

Com um textbox Text1 e dois Listbox List1 e List2

list1.clear
list2.clear

for qqu = 1 to len(text1)
list1.additem left(text1, qqu)
list2.additem left(text1, len(text1)+1-qqu)
next

e

for qqu = 1 to len(text1)
list1.additem right(text1, qqu)
list2.additem right(text1, len(text1)+1-qqu)
next


Vê se dá certo. A lógica é essa. Existem outras variantes (Bruno Machado e Jobasaint é que gostam de brincar com isso...)
USUARIO.EXCLUIDOS 02/04/2004 17:36:45
#18564
Ieu, hein?

Alguém pode dizer assim: "Olha, Tio Max! Funcionou! Brigadão!" ou "Pà', véio doido! Manda um projeto que roda!"

Eu não vi o outro post. Apareceu a dúvida, eu lasquei a resposta. Vou comer meu sanduíche de manteiga de amendoim. Chao.
Tópico encerrado , respostas não são mais permitidas