Foro de elhacker.net

Estoy haciendo un juego de mesa, donde las fichas son picturebox, pero necesito moverlas y he usado DragDrop para poder mover la imagen del picturebox a otro. Pero luego necesito borrar la imagen del original y en un caso hacer invisible el picturebox una vez usada la imagen.

No puedo hacer eso, porque solo se copia la imagen y no se mueve, y cuando se completa el evento la unica informacion que llega es la de la imagen por argumento pero no la del picturebox de donde se sacó entonces no puedo saber de que picturebox saqué la imagen.

Uso esto:

private void picA1_MouseDown(object sender, MouseEventArgs e)
        {
            picA1.DoDragDrop(picA1.Image, DragDropEffects.Move);
        }
 
 
  private void pic1_DragEnter(object sender, DragEventArgs e)
        {
            e.Effect = DragDropEffects.Move;
 
        }
 
private void pic1_DragDrop(object sender, DragEventArgs e)
        {
            pic1.Image = (Image)e.Data.GetData(DataFormats.Bitmap);
 
 
        }
 

El codigo funciona, pic1 queda con la imagen de picA1, pero lo que quiero ahora es poder manejar a picA1 para poder usar picA1.image = null; pero sin saber que es picA1 ya que puede llegar el Drop de cualquier otro picturebox.

Intente de todo en el ultimo evento, donde se produce el cambio, usando el argumento "e", pero solo es de lectura y no hace referencia al control.

Mi idea seria que en este ultimo evento se pudiera hacer por ejemplo: e.image = null; para poder borrarla.

Pero tal vez tengo que usar un evento de picA1, pero es que tiene que eliminarse la imagen cuando se hizo el drag ya entonces tiene que ser en este ultimo evento siempre.

Espero que se haya entendido y me puedan dar una mano, saludos!

Buenas!

Una solución es establecer una variable para rastrear el picturebox que está realizando el DragDrop en cada momento, esto te permitiria tener un control más directo con el SourceControl.

Public Class Form1
 
    Friend CurrentDraggingControl As PictureBox = Nothing
 
    Private Sub Form1_Load() Handles MyBase.Load
        Pic1.AllowDrop = True
        pica1.AllowDrop = True
    End Sub
 
    Private Sub picA1_MouseDown(sender As Object, e As MouseEventArgs) Handles pica1.MouseDown
        CurrentDraggingControl = sender
        sender.DoDragDrop(sender.Image, DragDropEffects.Move)
    End Sub
 
    Private Sub pic1_DragEnter(sender As Object, e As DragEventArgs) Handles Pic1.DragEnter
        e.Effect = DragDropEffects.Move
    End Sub
 
    Private Sub pic1_DragDrop(sender As Object, e As DragEventArgs) Handles Pic1.DragDrop
        sender.Image = DirectCast(e.Data.GetData(DataFormats.Bitmap), Image)
        CurrentDraggingControl.Image = Nothing
    End Sub
 
End Class

Otra sería especificar una condición donde si el DragDrop se cumple positívamente entonces llamar a "X" método (para no repetir código con los demás pictureboxes que tengas) y así hacer lo que queramos con el sourcecontrol:

Public Class Form1
 
    Private Sub Form1_Load() Handles MyBase.Load
        Pic1.AllowDrop = True
        pica1.AllowDrop = True
    End Sub
 
    Private Sub picA1_MouseDown(sender As Object, e As MouseEventArgs) Handles pica1.MouseDown
        If sender.DoDragDrop(sender.Image, DragDropEffects.Move) = DragDropEffects.Move Then
            AfterDragDrop(sender)
        End If
    End Sub
 
    Private Sub pic1_DragEnter(sender As Object, e As DragEventArgs) Handles Pic1.DragEnter
        e.Effect = DragDropEffects.Move
    End Sub
 
    Private Sub pic1_DragDrop(sender As Object, e As DragEventArgs) Handles Pic1.DragDrop
        sender.Image = DirectCast(e.Data.GetData(DataFormats.Bitmap), Image)
    End Sub
 
    Private Sub AfterDragDrop(ByVal PCB As PictureBox)
        PCB.Image = Nothing
    End Sub
 
End Class

Saludos!

Gracias elektro! funciona!