Bienvenue sur Aides aux utilisateurs de gambas linux

DRAG AND DROP ENTRE DEUX FORMULAIRES

dragentre2form.jpg

Aujourd'hui nous allons voir un drag and drop entre deux forms avec gambas.


fmain est composeé de :
1 drawarea, 1 picturebox, 1 bouton
 
voici les sources de fmain :

PUBLIC SUB _new()
END
PUBLIC SUB form_OPEN()
form1.show
me.center
END
PUBLIC SUB button1_click()
quit
END
PUBLIC SUB picturebox3_mousedrag()
'drag even
IF mouse.left THEN
drag.icon = last.picture
picturebox3.visible = FALSE
last.drag(last.picture.image)
ENDif
END
PUBLIC SUB drawingarea1_drop()
'drop receive picturebox1 on form1 or picturebox3 on fmain
'recupere les coordonnees x et y de l_image
picturebox3.x = drag.x
picturebox3.y = drag.y
'recupere limage
picturebox3.picture = drag.icon
picturebox3.visible = TRUE
END


et dans la Form1 nous aurons :
1 drawarea, 1 pictureBOX
Voici le code :

PUBLIC SUB drawingarea1_drop()
'receive picture x and y
picturebox1.x = drag.x
picturebox1.y = drag.y
'receive image
picturebox1.picture = drag.icon
picturebox1.visible = TRUE
END
PUBLIC SUB picturebox1_mousedrag()
'drag even
IF mouse.left THEN
drag.icon = last.picture
picturebox1.visible = FALSE
last.drag(last.picture.image)
ENDif
END
Une fois le concept assimilé, cela est très simple.
A bientôt !
wink