Drag image entre deux form

Rédigé par spheris Aucun commentaire
Classé dans : apprentisssage, Drawarea, gambas 2, picturebox, Tutoriel, Widget, Drag Mots clés : drag, form

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