Tengo unos pictures creados por código almacenados en arrays.
Tengo que arrastrar las imágenes que contienen de unos a otros, pero quiero que al arrastrar la imagen
el picture del que sale la imagen desaparezca.
el codigo que tengo es este:
PUBLIC SUB fotosale_MouseDrag() 'este es el grupo de pictures del que salen las imágenes.
IF Mouse.Left THEN
Drag.Icon = LAST.Picture
LAST.Drag(LAST.Picture.Image)
ENDIF
END
PUBLIC SUB fotoentra_Drop() ' Este es el grupo que recibe las imágenes.
DIM i AS Integer
i = LAST.tag
arrayimagen2[i].picture = Drag.Icon
END
IF Mouse.Left THEN
Drag.Icon = LAST.Picture
LAST.Drag(LAST.Picture.Image)
ENDIF
END
PUBLIC SUB fotoentra_Drop() ' Este es el grupo que recibe las imágenes.
DIM i AS Integer
i = LAST.tag
arrayimagen2[i].picture = Drag.Icon
END
Este código funciona las imágenes se arrastran y se ponen en el picture que las recibe.
Pero no se como decirle que desaparezca del picture que fue arrastrada.
Supongo que tendré que decirle en el evento drop del grupo de imágenes que
reciben que se cambie la imagen del picture del que vienen.
No se como hacerlo.
Gracias
