Home •  Forum •  FAQ •  Search •  Recent Topics •  Memberlist •  Register •  Log in 
Forum » Gambas » General

Drag/Drop

Reply to topic

 

pittusa
Quote
Posts: 157 Location: Barcelona
Sunday, 30 January 2011, 11:02
Subject: Drag/Drop
Hola.

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


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

Last edited by pittusa on Sunday, 30 January 2011, 11:07; edited 1 time in total
Profile PM   MSN
jsbsan
Quote
Posts: 4175 Location: dos hermanas, sevilla
Sunday, 30 January 2011, 12:12
Subject: Re: Drag/Drop
Se me ocurre que puedes crear un variable que indique el nombre de donde viene la imagen, y cuando la sueltes, el programa lea esa variable y anule al picture...

Saludos

Profile PM   Website MSN
jguardon
Quote
Posts: 2708 Location: Granada
Sunday, 30 January 2011, 12:48
Subject: Re: Drag/Drop
O al final del evento Drop, pon una instrucción que borre (o asigne NULL) a la propiedad Picture del PictureBox de origen.

Saludos

Profile PM  
pittusa
Quote
Posts: 157 Location: Barcelona
Sunday, 30 January 2011, 14:37
Subject: Re: Drag/Drop
hola y gracias por las respuestas.

pero el problema es que no se como obtener el picturebox de origen.

con LAST obtengo el ultimo que es el que recibe.

gracias.

Profile PM   MSN
pittusa
Quote
Posts: 157 Location: Barcelona
Sunday, 30 January 2011, 18:31
Subject: Re: Drag/Drop
Hola.

Lo he arreglado.

PUBLIC SUB fotosale_MouseDrag()


IF Mouse.Left THEN
Drag.Icon = LAST.Picture
LAST.Drag(LAST.Picture.Image)
c = LAST.tag 'Aqui esta la clave, asigno a la variable c el ultimo objeto que se arrastro mediante tag.

ENDIF
END

PUBLIC SUB fotoentra_Drop()

DIM i AS Integer
i = LAST.tag


arrayimagen2[i].picture = Drag.Icon
IF arrayimagen2[i].picture = picture["1.JPG"] THEN arrayimagen2[1].enabled = FALSE
arrayimagen[c].picture = picture["sinimagen.JPG"] ' y aqui aplico a c ese valor, buaalaa
END


Una cosa tan sencilla y lo que me ha costado.
gracias.

Last edited by pittusa on Sunday, 30 January 2011, 18:32; edited 1 time in total
Profile PM   MSN
Reply to topic
 

Page 1 of 1


  
You cannot post new topics
You cannot reply to topics
You cannot edit your posts
You cannot delete your posts
You cannot vote in polls
You cannot attach files
You can download files
You cannot post calendar events

   

This is a "Lo-Fi" version of our main content. To view the full version with more information, formatting and images, please click here.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Generation Time: 0.1592s (PHP: -46% SQL: 146%)
SQL queries: 24 - Debug Off - GZIP Enabled