[VB.NET 2005] Drag and Drop

[watt]

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

[SoulOnFire]

em que circunstancias??

- de caixa de texto para caixa de texto?

ou outra?

Fika Bem!!

SoulOnFire!!

[Guest id194]

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

[watt]

caixa de texto para caixa de texto

[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  👍

Fika Bem!

SoulOnFire

[psiico]

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