Mover una imagen de un picturebox a otro con DragDrop

Foro de elhacker.net

Programación

Programación General

.NET (C#, VB.NET, ASP) (Moderador: kub0x)

Mover una imagen de un picturebox a otro con DragDrop

0 Usuarios y 1 Visitante están viendo este tema.

Páginas: [1]

Autor

Tema: Mover una imagen de un picturebox a otro con DragDrop (Leído 6,388 veces)

$Edu$

Desconectado

Mensajes: 1.842

Mover una imagen de un picturebox a otro con DragDrop

« en: 9 Enero 2014, 15:40 pm »

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:

Código

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!


	En línea

Eleкtro

Ex-Staff

Desconectado

Mensajes: 9.878

Re: Mover una imagen de un picturebox a otro con DragDrop

« Respuesta #1 en: 9 Enero 2014, 16:17 pm »

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.

Código

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:

Código

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!


« Última modificación: 9 Enero 2014, 16:42 pm por Eleкtro »	En línea

$Edu$

Desconectado

Mensajes: 1.842

Re: Mover una imagen de un picturebox a otro con DragDrop

« Respuesta #2 en: 9 Enero 2014, 16:53 pm »

Gracias elektro! funciona!


	En línea

Páginas: [1]

Ir a:

Mensajes similares
	Asunto	Iniciado por	Respuestas	Vistas	Último mensaje
	cambio de imagen en un picturebox Programación Visual Basic	Hackel	1	1,978	1 Julio 2006, 18:26 pm por <--v1c1ous-->
	Efecto DragDrop y uso (Tema modificado: dragdrop) .NET (C#, VB.NET, ASP)	Zeroql	3	3,078	8 Junio 2010, 22:31 pm por Zeroql
	PictureBox VB.NET [Tranparencia Imagen] .NET (C#, VB.NET, ASP)	MicroHack	2	15,985	25 Mayo 2011, 02:07 am por sentinel13
	Como mover un PictureBox ???? .NET (C#, VB.NET, ASP)	BlackDiamond	1	6,094	28 Marzo 2011, 23:36 pm por Edu
	Mover mover la imagen de un JButton a otro JButton Java	mystiic	0	2,364	12 Mayo 2015, 21:26 pm por mystiic