Drag and drop

Signaler
Messages postés
38
Date d'inscription
mercredi 10 novembre 2004
Statut
Membre
Dernière intervention
15 mai 2009
-
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
-
salut à tous !!!

j'aimerai faire ceci

john marilyne

ringo elvis

je veux qu en glissant Marilyne sur john marilyne remplace john mais en glissant elvis elvis revienne a sa place et que john ne change pas .

en faite :^marilyne change jhon
elvis change ringo
mais marilyne ne change pas ringo et elvis ne change pas john

j'y arrive un peu mais ya des ptits trucs qui ne fonctionnent pas

merci de me mettre un code pour que je puisse comparer et surtout comprendre les ptites suptilités du dragdrop
et doit on faire des if ou case dans Form_DragDrop ou picture_DragDrop

merci d av.

1 réponse

Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
26
Tu dois placer tes images dans une ImageList. Voici un petit exemple de 2 images.

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Drag vbBeginDrag
Image1.DragIcon = Image1.Picture
End Sub
Private Sub Image2_DragDrop(Source As Control, X As Single, Y As Single)
Image2.Picture = ImageList1.ListImages("Sourire1").Picture
Source = ImageList1.ListImages("Sourire2").Picture
End Sub

'dans ImageList Image1 Key Sourire1
Image2 Key Sourire2

jpleroisse