http://www.gambas-es.org/viewtopic.php?f=1&t=125&p=682#p682
-----------------------------------
soplo
27 Octubre 2009, 21:25

Re: Drag & Drop
-----------------------------------
Es muy simple.

1. En el control del que vas a hacer drop pones la propiedad DROP a TRUE.

2. En el control del que quieres hacer drag escribes el evento mousedrag (para hacer drag con el ratón)
[code linenumbers=false syntax=gambas]PUBLIC SUB textbox_MouseDrag()

IF Mouse.left THEN 
  textbox.Drag(textbox.text)
ENDIF 
END[/code]

Con eso ya has programado que cuando hagas drag en un textbox te lleves el contenido. Igual podrías llevarte cualquier otra cosa naturalmente. El método drag inicia el proceso drag y te llevas lo que hayas metido como argumento.

Así que ahora ya puedes arrastrar desde un textbox a otro por ejemplo. Te queda por programar lo que ocurrirá cuando hagas el drop. para eso está el evento drop
[code linenumbers=false syntax=gambas]sub textbox2_drop
textbox2.text=textbox1.drop
end sub[/code]

Hay algún otro método para programar lo que ocurre mientras mueves el ratón y tal, pero lo fundamental es eso.

 :mryellow: