WIDGETS GAMBAS
LOGICIELS GAMBAS 3
TUTORIELS
VISITES

   visiteurs

   visiteurs en ligne

Où ça, qui ça?
FENETRE FORM - drag image entre deux feuilles

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



 

Date de création : 07/05/2009 @ 12:03
Dernière modification : 12/02/2012 @ 10:41
Catégorie : FENETRE FORM
Page lue 3869 fois


Imprimer l'article Imprimer l'article


react.gifRéactions à cet article

Personne n'a encore laissé de commentaire.
Soyez donc le premier !


ACCES RAPIDE
RECHERCHE




LOGICIELS GAMBAS 2
LES INSTRUCTIONS
LES COMPOSANTS
Divers

^ Haut ^