En ejemplo existen dos controles PictureBox. En uno tiene una imagen y en el otro no.
Arrastramos la imagen del primer PictureBox al segundo, quedando la imagen
en el segundo y borrándose en el primero. Y al revés.
Código:
Public Sub Form_Open()
Me.Center
End
Public Sub btnSalir_Click()
Me.Close
End
Public Sub CajaImagenes_MouseDrag()
If Mouse.Left And Last.Picture <> Null Then
Drag.Icon = Last.Picture
Last.Drag(Last.Picture.Image)
Endif
End
Public Sub CajaImagenes_Drop()
Dim pimagen As Picture
Dim objeto As PictureBox
objeto = Drag.Source
pimagen = Drag.Icon
Last.Picture = pimagen
objeto.Picture = Null
End
Me.Center
End
Public Sub btnSalir_Click()
Me.Close
End
Public Sub CajaImagenes_MouseDrag()
If Mouse.Left And Last.Picture <> Null Then
Drag.Icon = Last.Picture
Last.Drag(Last.Picture.Image)
Endif
End
Public Sub CajaImagenes_Drop()
Dim pimagen As Picture
Dim objeto As PictureBox
objeto = Drag.Source
pimagen = Drag.Icon
Last.Picture = pimagen
objeto.Picture = Null
End
Ejemplo:
EjemplosDragDrop2.tar.gz | ||
Descripción: | Descargar |
|
Nombre del archivo: | EjemplosDragDrop2.tar.gz | |
Tamaño: | 28.2 KB | |
Descargado: | 84 veces |
EjemplosDragDrop2.tar.gz | ||
Descripción: | Descargar |
|
Nombre del archivo: | EjemplosDragDrop2.tar.gz | |
Tamaño: | 28.2 KB | |
Descargado: | 84 veces |
EjemplosDragDrop2.tar.gz | ||
Descripción: | Descargar |
|
Nombre del archivo: | EjemplosDragDrop2.tar.gz | |
Tamaño: | 28.2 KB | |
Descargado: | 84 veces |