Apúntate...


Consultas, desarrollo de programas y petición de presupuestos:

lunes, 14 de abril de 2014

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






No hay comentarios:

Publicar un comentario

A falta de donativos... un poco de publicidad