Arrastrar y Soltar ( drag and drop )

Arrastrar y Soltar ( drag y drop)

Para usar esta forma de trabajar, arrastramos una imagen (información), de un control a otro, para que cargue la información arrastrada en el control donde soltamos, hay que definir:

a) El control donde empezamos a arrastrar (donde cogemos la información):
Definimos en el evento _MouseDrag() del control.
En este evento definimos la propiedad .Drag de ese mismo control, siguiendo esta forma:

Function Drag ( Data As Variant [ , Format As String ] ) As Control

• Data: son los datos a ser arrastrados. Pueden ser una cadena (string) o una imagen (image). Si data es un texto, se puede especificar el format el tipo "text/html"

Ejemplo:

Public Sub PictureBox1_MouseDrag()
    PictureBox1.Drag(PictureBox1.tag) ' en este caso la información esta contenida en la propiedad .tag del picturebox
End

b) El control que recibe:
1) La propiedad .drop del control, la tenemos que poner como TRUE, para que acepte soltar en él la información que estemos arrastrando
      PictureBoxSoltar.Drop = True

2) Además tenemos que definir el evento _Drop() para que sepa que tiene que hacer. Ejemplo
      Public Sub PictureBoxSoltar_Drop()
          PictureBoxSoltar.Picture = Picture[Drag.data]
      End

Ejemplo:
En este ejemplo podeis arrastrar la imagen contenida en los picturebox pequeños al grande, y el picturebox grande cargará la imagen.

Código fuente
-

-

enlace de descarga: alojado en  box.com


Para más información:
http://sologambas.blogspot.com.es/2011/08/ejemplo-de-drag-drop.html
http://gambaswiki.org/wiki/doc/dragndrop?l=es
http://gambaswiki.org/wiki/comp/gb.qt4/drag?l=es
http://gambaswiki.org/wiki/comp/gb.qt4/control/drag
http://gambaswiki.org/wiki/comp/gb.qt4/control/.drag?l=es
http://gambaswiki.org/wiki/comp/gb.qt4/control/.drop?l=es