Boa noite a todos, td bem com vcs?
Comigo tá blz :)
ArtSoft, esse código eu postei para de uma vez só transferir os itens de um list para o outro. Vc seleciona itens aleatórios e se colocar este código num botão por exemplo ele transfere os itens do list1 para o list2. Isso com o multiselect.
O que eu entendi é que ele não quer que repita no LIST2 certo? Bom, o que fiz foi retirar o item da LIST1 e "transferir" para a LIST2. Exemplo:
LIST1
ITEM00
ITEM01
ITEM02
Selecionei o ITEM00 e o ITEM02. Com o código acima eu transfiro para o LIST2 estes itens o LIST1 fica assim:
LIST1
ITEM01
Deste jeito não tem como repetir os itens já transferidos pois eu retiro do LIST1.
Justus. Caso vc queira transferir 1 a 1 deste modo (removendo o item do LIST1) então coloca assim no evento dblClick do ListBox1;
L2.AddItem L1.List(L1.ListIndex)
L1.RemoveItem L1.ListIndex
Espero que tenha ajudado aí e sempre lembrando que podem existir N maneiras para resolver um único problema. Usar ou não é uma questão de preferência dependendo da situação. O importante é que funcione :)
abraços a todos
