drag and drop

Question

salut &#224; 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&#233;s du dragdrop
et doit on faire des if ou case dans Form_DragDrop ou picture_DragDrop

merci d av.

jpleroisse · Answer

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

Drag and drop

1 réponse

Discussions similaires