Ir para conteúdo
Fórum Script Brasil
  • 0

Dragdrop


BrunoVeríssimo

Pergunta

É algo bem simples....

Crie dois ListBox, um com nome de LstOrigem e outro como LstDestino.

Crie um Label e renomeie por LblItem e deixe como Visible=False...

Vamos ao código...

Private Sub LstOrigem_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    'COPIA O ITEM SELECIONADO PARA O LABEL
    Me.LblDrag.Caption = Me.LstOrigem.Text 

    ' FAZ O EFEITO DO DRAG COM O LABEL
    Me.LblDrag.Top = Y + Me.LstOrigem.Top  
    Me.LblDrag.Left = X + Me.LstOrigem.Left

    'ATIVA O DRAG
    Me.LblDrag.Drag
    
End Sub

Private Sub LstDestino_DragDrop(Source As Control, X As Single, Y As Single)

    'QUANDO você SOLTAR O MAUSE DENTRO DO LIST DE DESTINO, ELE ADICIONA AO LIST O ITEM
    Me.LstDestino.AddItem (Me.LblDrag.Caption)

    'REMOVE O ITEM DE LIST DE ORIGEM
    Me.LstOrigem.RemoveItem (Me.LstOrigem.ListIndex)
        
End Sub

Pronto....sem dificuldades...e muito prático ^^

Link para o comentário
Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Até agora não há respostas para essa pergunta

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...