Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #57 da revista programar. Faz já o download aqui!

watt

[VB.NET 2005] Drag and Drop

Mensagens Recomendadas

SoulOnFire    0
SoulOnFire

Boas!!

Então aki tens o codigo necessário com uns comentarios a tentar ajudar

#region "Codigo"
    Private Sub TextBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown
        'Iniciar o DragDrop atribuindo-lhe o texto que esta na textbox, faz-se no mouseDown, ou seja quando pressionas o rato 
        DoDragDrop(TextBox1.Text, DragDropEffects.All)
    End Sub

    Private Sub TextBox2_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox2.DragEnter
        'Confirmar se o e.Data é do tipo texto, ou seja o tipo que desejamos e atribuir-lhe o effect Move
        If (e.Data.GetDataPresent(DataFormats.Text)) Then
            e.Effect = DragDropEffects.Move
        Else
        'No caso de não ser do tipo texto colocar o effect a "None"
            e.Effect = DragDropEffects.None
        End If
    End Sub

    Private Sub TextBox2_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox2.DragDrop
        'Atibuir á propriedade text da textbox o valor que esta no e.Data com a função GetData -> com o formato sendo string -> GetData(DataFormats.StringFormat)
        TextBox2.Text = e.Data.GetData(DataFormats.StringFormat)
    End Sub
#EndRegion

Não esqueçer de alterar o valor da propriedade AllowDrop = true da TextBox2 :smoke:

Consegues esta logica em qualquer controlo ou tipo de dados

Espero ter ajudado, qualquer coisa avisa  :thumbsup:

Fika Bem!

SoulOnFire

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade