Drag image entre deux form( Temps de lecture estimé à Moins d'une minute)
DRAG AND DROP ENTRE DEUX FORMULAIRES
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 :1 drawarea, 1 picturebox, 1 bouton
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 |
A bientôt !