Arrastrar y soltar (drag&drop)

[joanan46]

hola gente, mira tengo que hacer el siguiente ejercicio:

Sabeis el tipico arkanoid, bueno pues me lo han mandado como practica. En un form tengo dos picturebox, uno donde estan los tochos a arrastrar(son 3 cochos, cada uno mas duro k el otro y los puedo arrastrar varias veces) y el otro PB que contendran los tochos arrastrados y donde empezare la partida.

He probado muxos codigos pero no me acabo de salir para hacer el drag and drop. Me esta resultando muy dificl.

Código:

Private btnDown As Integer
    Private offsetX As Integer
    Private offsetY As Integer
    Private llista As List(Of PictureBox)
    Private Sub rect3_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles rect3.MouseDown, rect2.MouseDown, rect1.MouseDown

        'el boton izquierdo esta pulsado
        If (e.Button = MouseButtons.Left) Then
            btnDown = True
            offsetX = e.X
            offsetY = e.Y
        End If
    End Sub

    Private Sub rect3_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles rect3.MouseMove, rect2.MouseMove, rect1.MouseMove

        If (btnDown) Then
            'mover el pictureBox con el raton
            Dim pb As PictureBox = New PictureBox()
            pb.Image = CType(sender, PictureBox).Image
            pb.Left += e.X + PPantalla.Location.X
            pb.Top += e.Y + PPantalla.Location.Y
            'pb.Location = New Point(e.X + PPantalla.Location.X - offsetX, e.Y + PPantalla.Location.Y - offsetY)
            'PPantalla.Controls.Add(pb)
            

        End If
    End Sub

    Private Sub rect3_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles rect3.MouseUp, rect2.MouseUp, rect1.MouseUp

        'el boton izquierdo se libera
        If (e.Button = MouseButtons.Left) Then
            btnDown = False
            Dim pb As PictureBox = New PictureBox()
            pb.Image = CType(sender, PictureBox).Image
            pb.Location = New Point(e.X - PPantalla.Location.X + offsetX, e.Y - PPantalla.Location.Y + offsetY)
            PPantalla.Controls.Add(pb)
        End If
    End Sub

no se como seguir. necesito ayudita.

Gracias,, saludos

[drako_darpan]

Hola que tal, bueno gracias a tu duda me quedo mas clara una pregunta similar a tu duda , un pequeño Deja VU

Para el Drag&Drop en C#, seria asi:

Código C#:

private Image picture;
        private Point pictureLocation;
 
        public Form1()
        {
            InitializeComponent();
        }
 
        private void Form1_Load(object sender, EventArgs e)
        {
            this.AllowDrop = true;
            this.DragDrop += new DragEventHandler(this.Form1_DragDrop);
            this.DragEnter += new DragEventHandler(this.Form1_DragEnter);
        }
 
        protected override void OnPaint(PaintEventArgs e)
        {
           // If there is an image and it has a location, 
           // paint it when the Form is repainted.
           base.OnPaint(e);
           if(this.picture != null && this.pictureLocation != Point.Empty)
           {
              e.Graphics.DrawImage(this.picture, this.pictureLocation);
           }
        }
 
        private void Form1_DragDrop(object sender, DragEventArgs e)
        {
           // Handle FileDrop data.
           if(e.Data.GetDataPresent(DataFormats.FileDrop) )
           {
              // Assign the file names to a string array, in 
              // case the user has selected multiple files.
              string[] files = (string[])e.Data.GetData(DataFormats.FileDrop);
              try
              {
                 // Assign the first image to the picture variable.
                 this.picture = Image.FromFile(files[0]);
                 // Set the picture location equal to the drop point.
                 this.pictureLocation = this.PointToClient(new Point(e.X, e.Y) );
              }
              catch(Exception ex)
              {
                 MessageBox.Show(ex.Message);
                 return;
              }
           }
 
           // Handle Bitmap data.
           if(e.Data.GetDataPresent(DataFormats.Bitmap) )
           {
              try
              {
                 // Create an Image and assign it to the picture variable.
                 this.picture = (Image)e.Data.GetData(DataFormats.Bitmap);
                 // Set the picture location equal to the drop point.
                 this.pictureLocation = this.PointToClient(new Point(e.X, e.Y) );
              }
              catch(Exception ex)
              {
                 MessageBox.Show(ex.Message);
                 return;
              }
           }
           // Force the form to be redrawn with the image.
           this.Invalidate();
        }
 
        private void Form1_DragEnter(object sender, DragEventArgs e)
        {
            // If the data is a file or a bitmap, display the copy cursor.
            if (e.Data.GetDataPresent(DataFormats.Bitmap) ||
               e.Data.GetDataPresent(DataFormats.FileDrop))
            {
                e.Effect = DragDropEffects.Copy;
            }
            else
            {
                e.Effect = DragDropEffects.None;
            }
        }
 

El ejemplo lo revise en MSD de esta ruta:
http://msdn.microsoft.com/es-es/libr...=vs.90%29.aspx

Espero te sirva, si funciona por que ya lo probe, pero ahora quiero poder mover la imagen que anexe , pero eso me toca buscarle a mi, suerte