ITEM DE UMA LISTA PARA OUTRA

USUARIO.EXCLUIDOS 07/09/2007 17:41:30
#234659
pessoa estou utilizando a codificação abaixo para passar um selecionado para outra lista, até funciona o item selecionado vai para outra lista, no entanto, eu preciso tambem que após ser transportado para outra lista o item seja removido.

o que posso fazer, tentei varia coisas porém não deu certo

Private Sub cmdultimo_Click()

 ' tenho duas lista 
If Trim(lstproduto.Text) = "" Then
MsgBox "Selecione um item!", vbCritical, "Aviso"
Exit Sub
Else
lstgastos.AddItem lstproduto.Text
End If
End Sub


Valeu!!
USUARIO.EXCLUIDOS 07/09/2007 18:57:39
#234668 Resposta escolhida
Tente
Private Sub List1_DblClick()
List2.AddItem List1.Text
List1.RemoveItem (ListIndex)
End Sub
USUARIO.EXCLUIDOS 07/09/2007 19:40:10
#234671
Utulizei a logica acima porém ao invés de excluir o item selecionado, exlclui a primeira linha da lista...
USUARIO.EXCLUIDOS 07/09/2007 19:47:02
#234672
Já fix isso antes

Private Sub CmdApagaItem_Click()
If List3.ListIndex = -1 Then
   Exit Sub
End If
List2.List(List2.ListCount) = List3.List(List3.ListIndex)
List2.ItemData(List2.ListCount - 1) = List3.ItemData(List3.ListIndex)
If List3.ListCount = 1 Then
    List3.RemoveItem (List3.ListIndex)
   Exit Sub
Else
   List3.RemoveItem (List3.ListIndex)
   List3.ListIndex = 0
End If
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar