ayuda con drag and drop

[juanpablomonte]

Hola gente amiga

Luego de no tener respuesta alguna.. ni siquiera para decirme " amigo no lo se....explicate mejor" o algo... me he puesto en hacerlo por mi mismo.... y lo logré.

Para todo aquel que necesite esto alguna vez... les dejo el codigo fuente para Visual Basic.net 2005 (FW2.0) .

Saludos

Código:

 Private m_MouseIsDown As Boolean = False
    Dim objeto As Object

' detecto que he presionado el boton del mouse, sobre mi control
    Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        m_MouseIsDown = True

        

    End Sub

   
' detecto que estoy moviendo el control, y entonces activo el drag.

 Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        If m_MouseIsDown Then
          
' esto sirve para que pueda arrastrar cualquieir tipo de control con tan solo indicar que objeto es.

            objeto = Me.PictureBox1
          
  PictureBox1.DoDragDrop(Me.PictureBox1, DragDropEffects.Copy Or DragDropEffects.Move)

        End If
    End Sub

    Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
        m_MouseIsDown = False
    End Sub


' aqui es donde paso dentro del panel, y le asigno la posicion superior izquierda.

    Private Sub Panel1_Dragenter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Panel1.DragEnter 

        Dim nombre As String = objecto.name
        Me.Panel1.Controls.Add(e.Data.GetData(objeto.GetType))
        Me.Panel1.Controls.Item(nombre).Location = New Point(1, 1)


    End Sub

de esta forma se puede hacer drag drop de controles.
Espero que le sirva a alguien. Saludos!!!!!