• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

watt

[VB.NET 2005] Drag and Drop

6 mensagens neste tópico

alguem me pode explicar como se faz o drag and drop no vb.net 2005 ?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

em que circunstancias??

- de caixa de texto para caixa de texto?

ou outra?

Fika Bem!!

SoulOnFire!!

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

se for tipo um ficheiro de do explorer basta activares a propriedade do controlo que queres que aceite o ficheiro...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

eu gostava de saber esta funcao para VB6 se alguma alma carinhosa, poder postar ai, obrigado ;)

0

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